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FOREWORD 


This investigation was performed for the NASA Manned Spacecraft 
Center Structures and Mechanics Division. Dr. Donald M.Curry 
was the technical monitor, and Dr. Kenton D. Whitehead was the 
project manager. The study was conducted by Dr. Whitehead and 
a project team consisting of Dr. K. T. Shih - Thermodynamics, 
Mr. G. L. Getline - Dynamics, Mr. R. S. Wilson - Stress, and 
Messrs R. H. Trelease and S. T. Hitchcock - Weights/Cost 
Analysis. All work was done at the San Diego Operation of the 
Convair Aerospace Division of General Dynamics with the excep- 
tion of consultation provided by Mr. J. D. Anderson of the Fort 
Worth Operation on the acoustic fatigue computer program. Re- 
sults of the study are published in two volumes; the Final Report 
(Vol I) and User's Manual (Vol II). 
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SUMMARY 


A study was performed to assimilate and develop computational techniques for the de- 
sign optimization of thermal protection systems for the space shuttle vehicle. The 
resulting computer program was then used to perform initial optimization and sensi- 
tivity studies on a typical thermal protection system(TP$)to demonstrate its application 
to the space shuttle TPS design. The program was developed in Fortran IV for Convair 
Aerospace's CDC 6400, but it was subsequently converted to the Fortran V language to 
be used on the MSC Univac 1108. Documentation for the study is reported in two vol- 
umes - the Final Report and the User's Manual. The latter contains input instructions 
and a sample problem to illustrate use of the program. 

The major effort of the investigation consisted of the development of the computational 
techniques and programming of the subsequent methodology. The program itself was 
effected in modular fashion to allow continuing improvement and update of the perfor- 
mance prediction techniques. The program logic involves subroutines which handle the 
following basic functions: (1) a driver which calls for input, output, and communica- 
tion between program and user and between the subroutines themselves, (2) a thermo- 
dynamic analysis which includes prediction of both the aerodynamic heating rates and 
the resulting heat transfer and temperature response of the TPS, (3) a thermal stress 
analysis which predicts the internal stresses and creep rates of the TPS by a discrete 
element analysis which structurally models the TPS subject to both external forces 
due to aerodynamic pressure and thermal stresses caused by heating, (4) an acoustic 
fatigue analysis which predicts both the noise excitation due to a number of external 
sources and the fatigue life of the panel, and (5) a weights/cost analysis which deter- 
mines the weight and manufacturing cost of the system by identifying and evaluating 
these parameters for each of the TPS's components parts. In addition, a system total 
cost is predicted based on system weight and historical cost data of similar systems. 
Each of the major components of the program described above is complemented by 
other subroutines which provide specialized calculations for the analyses. 

Two basic types of input are provided, both of which are based on trajectory data. In 
the first, vehicle attitude (altitude, velocity, and angles of attack and sideslip) is input 
and external heat and pressure loads are calculated. In the second, heating rates and 
pressure loads are provided to the program as a function of time. Standard program 
output includes heating rates, temperature, and stresses for the discrete elements of 
the TPS analyzed as well as dynamic stresses and the number of stress reversals for 
the panel and its weight and cost. A panel redesign technique is included to increase 
the panel thickness to transfer mechanical loads and to increase insulation thickness 
to protect the underlying load-bearing structure. In a subsequent investigation these 
redesign iterations are being refined. 



Optimization and sensitivity studies are performed by the user by varying panel size, 
material properties, and configuration (six different metallic panel cross-section 
geometries are provided) in a series of computer rims. The program sizes panel 
and insulation thicknesses. An optimum design is then identified as the one giving 
either minimum weight or cost as a function of the parameters being varied for the 
investigation. Sensitivity studies are performed by noting the change in system weight 
or cost due to the variation in some independent variable such as trajectory or heating 
prediction method for an optimum panel configuration. 

As the final task of this study, recommendations are made for computer program 
improvements which include new thermal protection systems (both active and passive) 
and improved computational and iterative techniques. 


x 



SECTION 1 


INTRODUCTION 

This manual describes the computer program P5490 developed for use in optimizing 
the design of the thermal protection system for manned spacecraft in terms of weight 
and cost. A brief description is given of the capabilities and limitations of the pro- 
gram followed by operation instructions and a sample problem. Source listings, de- 
scriptive paragraphs of all subroutines, and a flow chart of the program are given in 
the appendices. 

The program starts by calling subroutine INPUT1 to read in data necessary to perform 
the thermal protection system (TPS) sizing. For a given trajectory, location on the 
spacecraft, and computational time interval, the subroutine THERMO computes the 
local pressure and aerodynamic heating rate. The temperature and stress response 
of the structure are then evaluated by the subroutines CONDTN and STRESS respec- 
tively. Panel and insulation thickness are sized by comparing the computed results 
to thermal and stress constraints. Once the TPS has been sized thermodynamically 
and structurally, the acoustic fatigue analysis subroutine FATIG computes the dynamic 
response of the TPS and compares it to the lifetime requirements of the vehicle. 
Finally, the weight/cost analysis subroutine DRVTPS predicts TPS unit weight and 
cost. 

The program was developed simultaneously in Fortran IV for the CDC 6400 and in 
Fortran V for the Uni vac 1108 by the Convair Aerospace Division of General Dynamics. 
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SECTION 2 


PROGRAM CAPABILITIES AND LIMITATIONS 

The program has been written in modular fashion. The primary purpose of this is to 
provide ease of modification. A continual improvement of the program to maintain the 
state-of-the-art is being conducted under Contract NAS9-11992. The following sub- 
sections describe the capabilities and limitations of the program. 

2.1 COORDINATE SYSTEMS 


In this program, a rectangular coordinate system was adopted. The plane of symmetry 
of the spacecraft (the pitch plane) is specified as the xz-plane of the coordinate system 
(Figure 2-1). The location on the spacecraft is described in the program by the dis- 
tance from the leading edge (or dia- 

- 7 

meter of the body in the case of high 
angle of attack), and the direction 
cosines of outer normal from the sur- 
face , a unit vector n 


n = iDnx + jDny + kDnz (2 . 1) 

If the free stream unit velocity vector, 
v, is defined as 



V 

v = — = iCoso; Cosj3 + jSinj8 


+ kSinaCosjS 


( 2 . 2 ) 


DNz = COS 30° = 0.866 

SAMPLE: BOTTOM PITCH PLANE WITH 30° INCLINATION 
TO A WATERLINE 


where a is the angle of attack and /3 

is the yaw angle, the effective angle 

of attack, a is then 
eli 


Sin a = n 
eff 


(2.3) 


Figure 2-1. Coordinate System 


2.2 AERODYNAMIC HEATING 

Three methods are employed to specify the aerothermodynamic environment of the local 
TPS of interest. The first is to input the vehicle trajectory as a function of time (i.e. , 
altitude, velocity, angle of attack, yaw angle). These points are tabulated data, and 
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the trajectory at a specific time is established by linear interpolation. Freestream 
properties of temperature, pressure, density, speed of sound, and viscosity are 
determined from the 1963 Patrick A FB Atmosphere (subroutine PRA63). The second 
technique is to input the local pressure and heat transfer rate (either steady state or 
as a function of time). The third technique is simply a statement of the temperature 
of the first row of segments. 

Prediction of aeroheating (subroutine THERMO) can be conventiently classified into 
two regimes: high and low local angle of attack. For low angle -of-attack applications, 
the shock waves are assumed attached to the body, and flow field properties can be 
computed from tangent wedge /cone techniques. Using these local properties, the 
algorithm then computes local heating rates using either the Eckert reference enthalpy 
method or the Spalding-Chi technique . Transitional heating between the laminar and 
turbulent boundary layers is calculated as a linear interpolation of turbulent and laminar 
heating values, the degree of turbulence depending on the turbulent fraction exhibited 
by the boundary layer with respect to values of Reynolds number for transition onset 
and end. 

At high angles of attack, the flow field cannot be predicted so conveniently as at low 
angles of attack. Thus, current state of the art techniques recommend aeroheating 
rate calculation by swept cylinder methods, either laminar or turbulent. At the mo- 
ment, no transition criterion has been established for the switch from laminar to 
turbulent swept cylinder heating prediction techniques. 

2 . 3 STRUCTURAL TEMPERATURE RESPONSE 

The temperature response of the internal TPS structure is determined by solving an 
explicit statement of the Fourier heat conduction law. The structural temperature 
distributions are evaluated by simulating the TPS as a structure of lumped nodes. 

Nodal densities, specific heats, and other thermodynamic parameters as well as radia- 
tive and conductive heat transfer coefficients between nodes then determine the coef- 
ficients of the finite difference analog of the Fourier equation. 

Property values for heat conduction analysis (density, emissivity, heat capacity, and 
thermal conductivity) are fed into the program as constants or as functions of tempera- 
ture. These points are tabulated data, and the properties at a specific temperature 
are established by linear interpolation. 

Structural temperature response is evaluated by either a one- or two-dimensional 
conduction program with internal radiation. The structure is divided into an arbitrary 
number (maximum of 9 columns x9 segments) of nodes (Figure 2-2). 

The CONDTN subroutine accommodates simulation of radiation heat exchange between 
nodes. There are two general expressions available for calculation of radiation heat 
exchange . The equation 
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Figure 2-2. Structure Segmentation 



e. ct 

i 3 




4 4 

A. F (T - T ) 
1 ij j i 


(2.4) 


describes radiation heat exchange, Qy, between two parallel plates i and j, where or is 
the Boltzmann's constant, e is the emissivity, A is the area, F is the view factor and 
T is the temperature. Equation 2.4 is an approximate form. For rigorous calculations 
the "overall interchange factor, " 2L j should be computed and supplied as part of the 
problem input. By substituting = €j = 1 and F- j = 3 .j into equation (2.4) we have 

Q.. = O’ A. (T 4 - T 4 ) (2.5) 

U i U J i 


2 . 4 STRESS ANA LYSIS 


The stress analysis (subroutine STRESS) is performed for any of six simply-supported 
panels (Figures 2-3 and 2-4) with joints which permit free thermal expansion. Figure 
2-3 gives overall geometrical dimensions for the panel, and geometries for individual 
panel configurations are given in Figure 2-4. The loadings considered are bending due 
to aerodynamic pressure and the internal forces induced by temperature gradients 
within the panel cross section. 

The panels are segmented for thermal stress analysis; Figure 2-5 shows the panel seg- 
mentations together with the conduction matrices. It is essential that the conduction 
input obeys the matrix given in this figure. 

The following property values of panel material are needed for stress analysis; they are 
input as tabulated data. 

a. Young's modulus vs. temperature. 

b. Coefficient of thermal expansion vs. temperature. 
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SHOUT BEAM 

c. Yield strength vs. temperature. 

d. Ultimate tensile strength vs. 
temperature. 

e . Larson-Miller parameter for 
strain 1 vs. stress. 

f. Larson-Miller parameter for 
strain 2 vs. stress. 

2.5 ACOUSTIC FATIGUE 

The acoustic fatigue analysis (sub- 
routine FATIG) computes the funda- 
mental frequency of each of four 
different panel configurations (Figure 
Figure 2-3. Panel Overall Geometry 2-6). Although not all of these are in 

use presently, they will be utilized 

for concepts under development. Noise computations are performed for each of four 
different sources (turbulent boundary layer, boost engines, jet flyback engine, or 
scubbing by the exhaust of the jet flyback engines). Each sound pressure level is a 
function of local geometry (e.g. , the distance between the source and the point of 
interest for the case of engine induced noise, or the run length distance for the turbu- 
lent boundary layer, Figure 2-7. The panel moment of inertia about the cross-section 
neutral axis is computed external to the program by standard methods of stress 
analysis (Reference 2). Dynamic stresses are computed for each sound pressure 
level; these are adjusted to account for a dynamic magnification factor due to reson- 
ance and for a local stress raiser due to edge conditions. Critical stress levels for 
each noise source are determined by equating the randomly applied excitation energy 
to the allowed levels of stress as a function of number of stress reversals determined 
by test. (The latter information is calculated external to the program from data of the 
final report and is input as a third-degree least-squares curve fit of stress in kips 
per square inch as a function of stress reversals. ) The composite critical stress is 
determined as the square root of the sum of the squares, and the corresponding equiv- 
alent number of stress reversals is determined by equating the total energy absorbed 
by the system at the composite critical stress to the sum of all the energies absorbed 
by the application of random noises due to each of the four possible noise sources. 

The resulting critical stress and number of stress reversals are compared to the al- 
lowable values to see if they have been exceeded. 

2 . 6 WEIGHT AND COST ANALYSIS 

The weights/cost analysis predicts the weight and cost per unit area of three different 
panel configurations (Figure 2-6) and three different concepts of heat post supports 
(Figure 2-8). The type of panel and support structure is input to the program along 
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Figure 2-4. Panel Geometries 
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Figure 2-5. Configurations for Stress Analysis 
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Figure 2-6. Sonic Fatigue Analysis Configurations 
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Figure 2-7. Sonic Fatigue Input Nomenclature 
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Figure 2-8. Schematic of Supporting Structures 

with the panel and supporting structure geometry (Figures 2-9 through 2-13). The 
total system weight per panel is computed as the summation of weights of the various 
components, and weight per unit area is determined by dividing panel weight by panel 
area. Costs per unit area are determined by calculating the material, manufacturing, 
engineering, and refurbishment costs for each panel configuration and then dividing 
by panel size. Each individual cost (material, manufacturing, etc.) is calculated by 
identifying the type of material purchased, the form in which it is purchased, and the 
operations needed to manufacture the part (clamping, drilling, inspecting, etc.) as 
well as the manhours required for supporting activities (sustaining engineering, tool- 
ing, and the like). At the present time these data are stored within the computer 
program as tabulated values. 

Costs are computed by two different techniques. The first predicts the costs of man- 
ufacturing the TPS per unit area and includes materials and manufacturing costs. 

Since some of the basic cost information stored within the program is still under 
development, values for the manufacturing costs should be taken under advisement. 

The program total cost is based upon techniques generated for the space shuttle booster. 
The primary driver is weight of the TPS, and all costs are based on an area of 22,000 
ft 2 on the vehicle. Hence, unit area costs can be obtained by dividing total program 
costs by this number. All cost factors are currently embedded in the program, but 
refinements are being made to include a wider range of materials and configurations 
as well as to permit the user's input of his own cost information. 
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Figure 2-10. Cruciform and Support Post Assembly (Concept A) 
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2 . 7 TPS SIZING ROUTINE 

A short discussion of the TPS sizing 
routine is included in this manual to 
facilitate the user's understanding of 
the mechanics of the procedure. 

First, it must be remembered that 
the two parameters varied in the sizing 
procedure are the panel thickness and 
the insulation thickness. All other 
material properties and geometric 
parameters remain constant. It is 
recommended that all support struc- 
ture thicknesses be taken as minimum 
gauge for the particular material con- 
sidered. 

Thermodynamic constraints to the 
system are input as maximum allow- 
able temperatures for each material 
in the parameter TALLW(I) (e.g., an 
aluminum substructure would be 
characterized by an allowable tempera- 
ture of approximately 250°F). The 
temperature of each material is mon- 
itored throughout the flight and com- 
pared to the maximum allowable. A 
word of caution is in order here, 
however. The program user should 
be careful that the insulation to be 
sized lies between the exterior surface 
(more specifically, the heat source) 
and the material whose maximum 


allowable temperature will be the design point (Figure 2 -14a). If this is not the case, 
then when the maximum allowable temperature is exceeded, the insulation thickness 


will be increased, thus driving the actual temperature of the critical material even 
higher. Consider as an example the configuration shown in Figure 2 -14b. When the 
tank wall exceeds its maximum allowable temperature, the insulation will be thickened 
and the tank wall will get hotter. At the moment, there is no logic in the computer 
code to guard against this occurrence. 


When an actual temperature exceeds the maximum allowable, the insulation thickness 
is increased, the program returns to the starting point of the calculations, and the com- 
putations are begun anew. The insulation thickness is continually increased until 
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Figure 2-14. Schematic of Insulation Location 

either the actual temperature of the critical material is less than the maximum allow- 
able, or until the insulation thickness reaches one foot. For the latter case, the run 
is terminated. Here , the program user should again be critical of the printed results. 
This first generation computer program does not decrease the insulation thickness 
once a value is found which satisfies the temperature constraints. Hence, the insula- 
tion thickness may be beyond design requirements, and only perusal of the resulting 
temperature distribution will determine this fact. A subsequent computer run with a 
different initial insulation thickness may be necessary. Messages describing all 
changes in insulation thicknesses and/or termination of the case (along with appro- 
priate temperatures) are printed out. 

Structural or stress constraints to the system are not input by the program user but 
instead are inherent in the design technique. Six different design factors are considered 
in the stress analysis of the TPS panel. Tests to satisfy these design constraints are 
made on each of the nodes comprising the discrete element analysis of the various 
panel configurations (Figure 2-5). Each design factor and an explanation of its use is 
presented in Table 2-1. All of these factors are ratios of actual stresses or strains 
to allowable values for the particular material; they are fundamental expressions used 
in determining margins of safety in any stress analysis. 
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Table 2-1. Stress Design Factors 


Design Factor 

Design Point 

TIMS 

Ultimate Tension 

Y2MS 

Yield Strength 

C3MS 

Ultimate Compression 

C4MS 

Buckling of Corrugation* 

F5MS 

Crippling of Flange No. 1 

F6MS 

Crippling of Flange No. 2 

^Applicable only to Configurations 1 and 2 . 


The stress analysis is called during each print interval of the trajectory. This incre- 
ment is determined by the input parameter DELTA. When the subroutine STRESS is 
called, the discrete element thermal stress analysis is performed, and the design 
factors of Table 2-1 are stored for each discrete element of the cross-section. The 
stress analysis may be performed up to 99 times during the trajectory since this is 
the amount of storage now called in the program. At the end of the trajectory, the 
stress analysis subroutine assesses all of the design factors accumulated in the run 
and identifies the largest ones. If they are all positive and the actual values do not 
exceed the allowable ones, the analysis is terminated. On the other hand, if a design 
factor is negative, then the panel thickness is increased to accommodate the applied 
loads. On the first interation, the skin thickness is increased by 0.010 in. and the 
stress analysis at the critical time is performed again using the temperature distribu- 
tion and external forces stored for that particular time of the trajectory. If this new 
thickness is not sufficient, a . Newton-Raph son technique is employed to extrapolate to 
a new thickness. The procedure continues until a thickness is determined for which 
all design factors are positive. The sizing of the structure is demonstrated in the 
sample problem run in Section 4. 

There are two limitations to the present program which should be kept in mind by the 
program user. First, the stress analysis is complete when all design factors are 
positive. However, no check is made to see how far from zero these factors are. It 
is possible that panel thickness derived from an extrapolation which was determined 
from points below a design value may result in a panel thickness that is significantly 
above design requirements. Second, all thermal stress analyses are performed using 
the temperature distribution stored in core, i.e. , that which corresponds to the panel 
thickness originally input to the program. Experience has shown, however, that since 
stresses are dependent on temperature gradients and not absolute values of tempera- 
ture, the gradients are insensitive to small changes in panel thickness. 
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SECTION 3 


PROGRAM OPERATION INSTRUCTIONS 

This section presents the information required for effective use of the program. The 
instructions for correct program input are given in Section 3.1, a description of the 
program output is given in Section 3.2, and error statements are shown in Section 3.3. 

3.1 INPUT 

The input system has been designed to allow multiple cases with the complete input 
data deck consisting of input packages for each case. The first case generally requires 
specification of all necessary parameters whereas, in subsequent cases, a namelist 
DATANU can be used to make changes of parameters. A complete input package is 
composed of 30 records; a record is simply a convenient gathering of similar terms 
or groups of terms. The input symbols are defined in Table 3-1, and the format 
records are given in Table 3-2 and illustrated in Figure 3-1. 

The formats of data input are of the form nEw.o. Thus, a decimal point may appear 
anywhere in the field. However, if the exponential notation E xx is used, it must be 
right-hand justified. Airy field may be left blank. The blank is interpreted as a 0 
(integer) or 0 . 0 (floating point) . 

Simplification has been made in the input subroutine to allow changing the input para- 
meters by employing a namelist DATANU. This method is implemented when the 
parameter JI=2 (Record 1, Figure 3-1). In addition, two parameters NUDIM and 
NUTRAJ can be used to further simplify the input. If the parameter NUDIM=1, the 
program reads records 13 through 18. If NUTRAJ=1, the program reads the first 
trajectory card (this option may be used together with NANG=2). If NUTRAJ=2, the 
program looks for a new set of trajectory data. The definitions of the input symbols 
remain as given in Table 3-1. The namelist input starts with $ in column 2 followed 
immediately by the name DATANU with no embedded blanks. Succeeding are data 
items and a $ at the end. A sample of DATANU input is illustrated in Figure 3-2. 

Data for the weights and cost analyses are also read in using conventional formats, 
but they are read into the subroutine DRVTPS. Results of this analysis are output 
from this portion of the program also. The weights/cost input variables are indicated 
also in Table 3-1 starting with record 27. 

3.2 OUTPUT 

The program output consists of three distinct sections. They are illustrated in Section 
4. The first includes the case identification and printout of the input data. The last 
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line of print is the phrase END OF INPUT. This section of the output is accomplished 
by the subroutine INPUT1. 

The second section of the output consists of results. Numerical values are printed on 
the line below each heading. Output symbols are defined in Table 3-3. 

The third section of the output is the debug results output. This section presents the 
values of parameters which are not normally required but which may be helpful in 
tracking down the source of errors. This is especially helpful when a new subroutine 
is added or an existing subroutine is modified. The debug output is not printed unless 
it is specially requested by means of input a 1 of NPRT in the input data. 

3.3 ERROR STATEMENTS 

a. ALTITUDE LT 0 OR GT 700000 FT — Trajectory corresponds to an altitude out of 
range of PRA63 subroutine. 

b. LOCAL VELOCITY SQUARE IS NEGATIVE — This comment is printed when a 
calculated local velocity square becomes negative in subroutine THERMO. 

c. ERROR IN OBSPL COMPUTATION - Function Curve F out of range. 

d. SEGMENT NUMBER IJ TEMPERATURE CHANGE IS GREATER THAN 500 DEG — 
Conduction solution is unstable; however, the program normally readjusts the 
computation true interval. The computation will be stopped for a readjusted true 
interval less than 0. 1 sec (subroutine CONDTN). 

e. NO. OF TITLE CARD IS GREATER THAN 10 — Subroutine INPUT 1 limits title 
cards to 10. 

f. NO. OF TRAJECTORY IS GREATER THAN 99 - Subroutine INPUT1 limits 
trajectory cards to 99. 

g. OX ARGUMENT ERROR IN TABLE - Error in Function Table. 
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Table 3-1 „ Input Symbols 


Record Variable Type 
1 Alphanumeric 

1 Integer 

2 Integer 


Symbol 

TITLE 

JI 


ICONF 


Definition 

Case identification and comments, maximum 10 
cards 

Indicator marking the last title card which spec- 
ifies the input data form, input a 1, 2 or 3 

1. Use standard input formats 

2. Use the namelist DATANU (see Figure 3-2) 

3. Same as 1 but do not read trajectory cards 
Specifies body configuration, input a 1, 2 or 3 

1. Flat plate, wedge or cylinder 

2. Cone 

3. Sphere 


IQCON 


IQINP 


ITURB 


Specifies variation of input heat transfer multi- 
pliers, laminar and turbulent input a 1, 2, or 3 

1. QCONL(I) = QCONT(I) = 1 (no input required) 

2. Input QCONL(I). QCONT(I) = QCONL(I) 

3. Input both QCONL(I) and QCONT(I) 

Specifies variation of trajectory cards, input a 1, 
2 or 3 

1 . Input tr aj e ctory 

2. Input local heat flux and pressure 

3. Input temperature of the 1st row segments 
and local pressure 

Specifies turbulent prediction method, input a 
1 or 2 

1. Eckert reference enthalpy 

2. Spalding-Chi 


IWALT Specifies conditions of wall temperature, input a 
1 or 2 

1 . Uniform 


2 . Nonuniform 
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Table 3-1. Input Symbols, continued 
Record Variable Type Symbol Definition 


NANG Specified variation of input angle of attack, 

input a 1 or 2 

1. a , /S are function of trajectory 

2. a = ALPHA (1), £ = BETA(l) 

NCOLM Number of Columns ^ 9 

1. One-dimensional heat conduction 

2. Two-dimensional heat conduction 

NSEG Number of segments ^ 9 

NMAT Number of materials ^ 9 


NRSG 


NCRC 


One-dimensional case (NCOLM=l) number of 
internal radiation gaps 

Two-dimensional case (NCOLM>l) number of 
internal radiation segments, for segments which 
have more than one face radiation interchange, 
count each face as one segment £ 18 


Specifies coordinate systems used for conduction 
analysis, input a 1 or 2 


1. Rectangular coordinate 

2. Cylindrical coordinate 


Use only 1 for 
this version 


NSECT Panel configurations (see Figure 2-4) input a 1, 
2, 3, 4, 5 or 6 

1. Convair trapezodial 

2. Flat corrugation with skin 

3. Rib stiffened panel 

4. Skin stringer 

5. Open corrugation 

6. Circular arc corrugation 


3—4 





Record 


3 


4 


5 


Table 3-1. 

Variable Type Symbol 
NINS 

NF 

NPRT 

Real DNX 

DNY ► 

DNZ 

XDST 

DIAM 

AROD 

XEMIS 

FACC 

Real STAAT 

DELTA 
WROTE 
STOOP 

Real AS 

R 
HH 
TS 


Input Symbols, continued 

Definition 

Specifies input material number of the insulation 
(limited to one material) to be sized. If insulation 
sizing option is not used, leave blank. 

Number of flights. 

Specifies output form, input a 1 if ’’long” print 
out option is used. Leave blank for "short" print 
out 

Direction cosines of outer normal from surface 
(See Figure 2-1) 

Distance from the leading edge, ft 

Diameter of a sphere or cylinder, ft 

Ratio of shoulder radius to body diameter 

Outer surface emissivity 

Factor to increase insulation thickness 

Time to start computation, sec 

Computation interval, sec 

Print interval, sec 

Time to stop computation, sec 

Pitch of corrugations or ribs, in. (See Figure 2-4) 

Radius of corrugations, in. (See Figure 2-4) 

Depth of section, in. (See Figure 2-4) 

Skin thickness, in. (See Figure 2-4) 
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Table 3-1. Input Symbols, continued 


Record 

Variable Type 

Symbol 

Definition 



TC 

Corrugation thickness, in. (See Figure 2-4) 



SL 

Overall width of panel, in. (See Figure 2-3) 



SLS 

Overall length of panel, in. (See Figure 2-3) 



BE 

Distance of reaction from panel edge, in. (See 
Figure 2-4) 

6 

Real 

F07 

Secant yield stress F (Ramberg- Osgood) 

lb/in 2 . (Ref. 3) °' 7 



UF 

Ultimate factor 



DST 

Difference between two values of creep strain 
used for Lawson-Miller data in. /in. 



EALL 

Allowable creep strain in. /in. 



CRN 

Shape parameter for stress strain curve 
(Ramberg-Osgood) (Ref. 3) 



BF 

Width of flange or flat segment (Conf . 2) in. 
(See Figure 2-4) 



BFL 

Width of inner flange (Conf. 4) in. (See Figure 
2-4) 



BL 

Width of lip on inner flange (Conf. 4) in. (See 
Figure 2-4) 

7. 

Real 

TALLW(I) 

Allowable temperature of the material, R° 

8 

Real 

EMIS(I) 

Emissivity of the material 

9 

Real 

RHO(I) 

Density of the material, lb/ft^ 

10 

Integer 

ID (I, J) 

Specifies input of material property tables 
input a 1 or 2 or leave blank to skip input 
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Table 3-1. Input Symbols, continued 


Record 

Variable Type 

Symbol 

Definition 

10 

Integer 

ED(I,J) 

(Cont'd) 

1. Read AY only (AX same as before) 

2. Read both AX and AY 

10 

Integer 

MPT(I, J) 

Number of pairs or points 

11 

Real 

AX(I, J, K) 

Independent variable 

12 

Real 

AY(I,J f K) 

Dependent variable 


I = 1, 2 NMAT 

J = 1. Thermal conductivity 


2. Heat capacity 

3. Young's modulus 

4. Coefficient of thermal expansion 

5. Yield strength 

6. Ultimate tensile strength 

7 . Larson Miller parameter for strain 1 

8. Larson Miller parameter for strain 2 

K = 1, 2 MPT(I, J) 


13 

Real 

X(I) 

Width of the Ith Column, ft 

14 

Real 

QCONL(I) 

Laminar heat transfer multiplier of the Ith 
column, omit if IQCON=l or NCOLM=l 

15 

Real 

QCONT(I) 

Turbulent heat transfer multiplier for the Ith 
column, omit if IQCON^3or NCOLM=l 

16 

Real 

Y(J) 

Thickness of the Jth segment, ft 

17 

Integer 

MAT(I, J) 

Specifies materials of column I, segment J 


A zero denotes a void. 
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Table 3-1. Input Symbols, continued 

Record Variable Type Symbol Definition 

1-9, material number negative. The segment 
will be grouped together with the right-hand side 
segment for condition computations 

17 Real TAMP(I, J) Specifies initial temperature of column I, segment 

J, °R 

Omit record 18 if NCOLM=l or NRSG=0 

18 Integer NR(N) Specifies nodes with internal radiation exchange. 

Example: 18 means column 1, segment 8. 

For segments which have more than one side 
have radiation exchange, treat each side as a 
segment in the order of left-right-upper-lower. 

NI(N) Number of nodes to be interacted with node 

NR(N), £ 9 

MR(M,N) Specifies nodes to interchange with node NR(N) 

18 Real VFACT(M,N) View factors or 3F_ with EMIS(I) = 1 

19 Integer IPFI Number of noise sources to be considered 

1. Turbulent boundary layer 

2 . Rocket engine 

3. Jet engine 

4. Jet engine scrubbing 

IPF(I) Identifies by number the noise sources 

IPAD Specified if vehicle is on the pad 

Zero - not on pad 
Non-zero - on pad 
KFLEX Flexural rigidity index 

0 ~ if structure symmetrical, rigid 

1 if unsymmetrical and/or flexible 

NPAN Panel configuration index 

1 ^flat plate 2 ^honeycomb sandwich 

3 ^ inte grally stiffened 4 ^ corrugated 
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Table 3-1. Input Symbols, continued 


Record Variable Type Symbol 

20 Real DT(1) 

XL 

REY 

VU 

QL 

AMACH 

21 Real DT(2) 

TT 

WER 

D 

VS 

XI 

DVEH 

YCL 

DREF 


Definition 

Period of turbulent boundary layer noise 
excitation, sec 

Rim length of turbulent boundary layer, feet 

Local Reynolds number 

Local velocity, ft/ sec 

Local dynamic pressure, psi 

Local Mach number 

Period of rocket engine noise excitation, sec 

Rocket engine thrust, lb 

Rocket engine weight flow, lb/sec 

Rocket nozzle exit diameter, ft 

Rocket exhaust velocity, ft/sec 

Distance between point of interest and rocket 
engine exit, ft 

Vehicle diameter, ft 

Buttline distance between panel and vehicle 
centerline, ft 

Reference distance between noise source on pad 
and rocket engine exhaust plane, ft 


22 Real 


DT(3) 

Period of jet (flyback) engine noise excitation, sec 

AE 

Nozzle exit area, ft 

VJ 

Jet velocity, ft/sec 

WEJ 

Jet engine weight flow, lb/sec 

W 

Vehicle velocity at flyback cruise, ft/sec 

TJ 

Jet engine thrust, lb 

XJ 

Axial distance from point of interest to jet engine 
exit nozzle, ft 

YP 

Radial distance from point of interest to jet 
engine nozzle, ft (less than 200 ft) 


3-9 



Table 3-1. Input Symbols, continued 


Record Variable Type Symbol 


23 Real DT(4) 


Definition 


Period of jet (flyback) engine scrubbing noise 
excitation, sec 


24 Real 


25 Real 


26 Real 


HPAN 

Panel thickness, inches 

HC 

Core thickness, inches (for honeycomb sandwich) 

AI 

Panel moment of inertia, in. 4 

AIY 

Panel moment of inertia , in. 4 (for normal 
direction of corrugated panel) 

AW 

Panel length, ft 

BW 

Panel width, ft 

EP 

Modulus of elasticity for panel, psi 

C(I) 

Coefficients of a least squares, 3rd order curve 
fit of allowable S-N data 

RHOP 

3 

Panel material density, lb/ft 

TIME(I) 

Time in trajectory, sec, I s 99 

ALT(I) 

IQINP=1. Altitude, ft 

2. Local heat flux, Btu/ft^-sec°R 

3. Temperature of 1st segments °R 

Note: QCONL(I) may be used to obtain a 
distribution of Q(I) or TEMP(1, 1) 

VTNF(I) 

If IQINP=1, free stream velocity, ft/sec 
If IQINP=2, 3 local pressure psia 

ALPHA(I) 

Angle of attack, degrees 

BETA(I) 

Yaw angle, degrees 

HINSD(I) 

Convection heat transfer coefficient to internal 
fluid. Btu/ft^ -sec°R 

(input 1.E9 to keep last row of segments at 
the initial temperature) 

TINSD(I) 

Bulk temperature of internal fluid, °R 

NREADT 

Non-zero indicator marking the last trajectory 
card 
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Table 3-1. 

Input Symbols, continued 

Record 

Variable Type 

Symbol 

Definition 

27 

Integer 

KINDP 

Specifies panel configuration, input a 1, 2, or 3 

1. Corrugated (either open or closed) 

2. Integrally stiffened 

3. Honeycomb 


Integer 

KINDS 

Specific supporting structure configuration, input 
a 1, 2, or 3 

1 . Configuration type A 

2. Configuration type B 

3. Configuration type C 


Real 

LENGTH 

Panel length, in. 


Real 

WIDTH 

Panel width, in. 


Real 

DLPANL 

Panel length overlap, in. 


Real 

DWPANL 

Panel width overlap, in. 


Real 

A 

Distance between adjacent panels, in. 


Real 

B 

Airspace gap between panel and insulation, in. 

28 

Real 

PINS1 

Density of insulation type 1 


Real 

PINS2 

Density of insulation type 2 


Real 

PINS3 

Density of insulation type 3 

29 1 

Integer 

NRIBS 

Number of corrugations across panel width 


Real 

CHORD 

Corrugation chord length, in. 


Real 

RADIUS 

Corrugation radius, in. 


Real 

PSKINl 

Density of material of skin panel, lb/in. 3 


Real 

PSKIN2 

Density of material of corrugated panel, lb/in. 3 

29 2 

Real 

GINSRT 

Weight of honeycomb inserts, lb/100 inserts 


Real 

TCORE 

Thickness of panel honeycomb core, in. 


Real 

TEDGE 

Thickness of panel edge piece , in. 
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Table 3-1. Input Symbols, continued 


Record Variable Type 

Symbol 

Definition 

Real 

PCORE 

Density of material of honeycomb core, lb/in . 3 

Real 

PEDGE 

3 

Density of material of edge pieces, Ib/in. 

Real 

PSKIN1 

Density of material of skin panel, lb /in . 3 

Real 

PSKIN2 

3 

Density of material of corrugated panel , lb/ft 

293 Integer 

NRIBS 

Number of panel ribs 

Real 

HRIB 

Height of panel rib, in. 

Real 

TEDGE 

Thickness of panel edge piece, in. 

Real 

PRIB 

Density of rib material, lb/in . 3 

Real 

PEDGE 

3 

Density of material of edge piece, lb /in. 

Real 

PSKIN1 

Density of material of skin panel, lb/in . 3 

Real 

E1RIB 

Width of panel rib, outside leg, in. 

Real 

E2RIB 

Width of panel rib, base leg, in. 

Real 

E3RIB 

Width of panel rib, inside leg, in. 

Real 

T1RIB 

Thickness of panel rib, outside leg, in. 

Real 

T2RIB 

Thickness of panel rib, base leg, in. 

Real 

TWRIB 

Thickness of panel rib, web, in. 

30 1 Real 

GBOLT 

Weight of bolts, lb/100 bolts 

Real 

GNUTPL 

Weight of nutplates, lb/100 nutplates 

Real 

GWASH 

Weight of washers, lb/100 washers 

Real 

TCORN 

Thickness of corner piece, in. 

Real 

TPOST 

Thickness of wall of corner post, in. 

Real 

PPOST 

Density of material of corner post, lb/in . 3 

Real 

ODPOST 

Outside diameter of corner post, in. 

Real 

TPLATE 

Thickness of corner plates 

Real 

TFNG1 

Thickness of support tube flange, in. 


TTUBE 

Thickness of wall of support tube, in. 


PTUBE 

Density of material of support tube, lb/in . 3 
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Table 3-1. Input Symbols, continued 

Record Variable Type Symbol Definition 

LTUBE Length of support tube, in. 

TSEAL Thickness of seal strip, in. 

PSEAL Density of material of seal strip, lb/in. 3 
TDOUBC Thickness of long beam doubler channel, in. 
TDOUBP Thickness of corner doubler plate, in. 

Real TBMLA Thickness of long beam. A, in. 

TBMSA Thickness of short beam, A, in. 

HBEAMA Height of long and short beams A, in. 
WBEAMA Width of long and short beam A, in. 

PBM Density of material of beams, lb/in. 3 

30 2 Real GBOLT Weight of bolts, lb/100 bolts 

GNUTPL Weight of nutplates, lb/100 nutplates 
GWASH Weight of washers, lb/100 washers 
GINSUL Weight of insulators, lb/100 insulators 
TPOST Thickness of wall of corner post, in. 

. 3 

PPOST Density of material of corner post, lb/in. 
WPOST Width of post B, in. 

30 3 GBOLT Weight of bolts, lb/100 bolts 

GNUTPL Weight of nutplates, lb/100 nutplates 
GWASH Weight of washers, lb/100 washers 
GCLAMP Weight of clamping washers, lb/100 washers 
TPOST Thickness of wall of corner post 

Real PPOST Density of material of corner post, lb/in. 3 

ODPOST Outside diameter of corner post, in. 

ODPOSR Outside diameter of center post, in. 

ODRING Outside diameter of post support ring, in. 

HRING Height of post support ring, in. 
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Table 3-1. Input Symbols, continued 


Record Variable Type Symbol 

TFNG1 

TTUBE 

PTUBE 

IDFNG1 

EDFNG2 

HFNG1 

HFNG2 

TRING1 

TRING2 


Definition 

Thickness of support tube flange, in. 

Thickness of wall of support tube, in. 

Density of material of support tube, lb/in.3 
Outside diameter of support tube, corner post C, in. 
Outside diameter of support tube, center post C, in. 
Height of support tube flange, corner post C, in. 
Height of support tube flange, center post C, in. 
Thickness of post support ring, corner post C, in. 
Thickness of post support ring, center post C,in. 


Table 3-2. Input Records Format 

Record 

Data 

I, J,K Range 

Format 

1 

JI, TITLE 


I1,9A8,A7 

2 

ICONF, IQCON, IQINP, ITURB 
IWALT, NANG, NCOLM, NMAT, NRSG 
NCRC, NSECT, NINS, NF, NPRT 


2014 

3 

DNX, DNY, DNZ, XDST, 
DIAM, AROD, XEMIS, FACC 


10F8.0 

4 

STAAT, DELTA, WROTE, STOOP 


10F8.0 

5 

AS, R, HH, TS, TC, SL, SLS, BE 


10F8.0 

6 

F07, UF, DST, EALL, CRN, BF, 
BFL, BL 


10F8.0 

7 

TALLW(I) 

1-NMAT 

10F8.0 

8 

EMIS(I) 

1-NMAT 

10F8.0 

9 

RHO(I) 

1-NMAT 

10F8.0 

10 

ID(I,J), MPT(I, J) 

1=1- NMAT 
J = 1-8 

2014 
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Table 3-2. Input Record Format, continued 


Record 

Data 

I, J,K Range 

Format 

11 

AX(I,J,K) 

I = 1-NMAT 
J = 1-8 

K = 1-MPT(I, J) . 

10F8.0 

12 

AY(I, J, K) 

I = 1-NMAT 
J = 1-8 

K = 1-MPT(I,J) 

10F8.0 

13 

X(I) 

1-NCOLM 

10F8.0 

14 

QCONL(I) 

1-NCOLM 

10F8.0 

15 

QCONT(I) 

1-NCOLM 

10F8.0 

16 

Y(I) 

1-NSEG 

10F8.0 

17 

MAT(I,J), TAMP(I, J) 

I = 1-NCOLM 
J = 1-NSEG 

9(12, F6.0) 

18 

NR(I), NI(I), MR(J, I), VFACT(J, I) 

I = 1-NRSG 
J = l-NI(I) 

12, 16, 9(12, F6.0) 

19 

IPFI, IPF(l), IPF(2), IPF(3), 
IPF(4), IPAD, KFLEX, NPAN 


2014 

20 

DT(1), XL, REY, VU, QL, 
AMACH 


10F8.0 

21 

DT(2), TT, WER, D, VS, 
XI, DVEH, YCYL, DREF 


10F8.0 

22 

DT(3), AE, VJ, WEJ, W, 
TJ, XJ, YP 


10F8.0 

23 

DT(4) 


10F8.0 

24 

HPAN, HC, AI, AIY, AW, 
BW, EP 


10F8.0 

25 

C(l), C(2), C(3), C(4), RHOP 


10F8.0 

26 

TIME(I), ALT(I), VINF(I), ALPHA(I), 
BETA(I), HINSD(I), TJNSD(I), NREADT 

1-NTRAJ 

7F8. 0,124 

27 

KINDP, KINDS, LENGTH, WIDTH, 

dlpanl, dwpanl, A, b 


214, 6E8.0 

28 

PINS1, PINS2, PINS3 


10E8.0 

29 1 

NRIBS, CHORD, RADIUS 


18, 9E8.0 


PSKIN1, P SKIN 2 
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Table 3-2. Input Record Format, continued 


Record 

Data 

I, J,K Range Format 

29 2 

GINSRT, TCORE, TEDGE, PCORE, 
PEDGE, PSKIN1, PSKIN2 

10E8.0 

29 3 

NRIBS, HREB, TEDGE, PREB, PEDGE, 
PSKIN1 

18, 9E8.0 


E1RIB, E2RIB, E3RIB 
Till IB, T2RIB, TWREB 

10E8.0 

30 1 

GBOLT, GNUTPL, GWASH, 

TCORN, TPOST, PPOST, ODPOST, 

tplate 

10E8.0 

30 2 

tfngi, ttube, ptube, ltube, 
tseal, pseal, tdoubc, tdoubp 

10E8.0 

30 3 

GBOLT, GNUTPL, GWASH, GCLAMP, 
TPOST, PPOST, ODPOST, ODPOSR, 
ODRING, HRING, TFNGI, TTUBE, 
PTUBE, IDFNG1, IDFNG2, HFNG1, 
HFNG2, TRING1, TRING2 

10E8.0 

NOTE: 

In tables 3-1 and 3-2, the superscripts on record 29 denote values of the 
panel index KINDP whereas those on record 30 show values of the structural 
index KINDS. 
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Figure 3-1. Sample Chart for Standard Input Formats 
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TITLE 

2 TITLE 

t DATANU NUDIM = 1, NTJTRAJ 
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Figure 3-2. Sample Chart for Simplified Input Format 



Table 3-3. Output Symbols 


Symbol 

TAU 

AL 

VI 

AOFA 
PI 
AMI 
A ME 
RYI 

PE 

Q(i) 

QNET(I) 

TEMP(I,J) 

A 

XX 

zz 

T 

FT 

FNET 

EDOT 

FTU 

FCY 

E 

TIMS 

Y2MS 

C3MS 

C4MS 

F5MS 

F6MS 


Definition 

Time in trajectory for which output is given, sec 
Altitude, ft 

Free-stream velocity, ft/sec 
Angle of attack, degrees 
Free-stream static pressure, psia 
Free-stream Mach number 
Local Mach number 
Free-stream Reynolds number/ft 

Local static pressure, psia 

Boundary convective heat transfer rate at Ith Column, Btu/ft 2 -sec 
Net external surface heat transfer at Ith Column, Btu/ft 2 -sec 
Temperature of Ith Column and Jth Segment at time TAU 
Section area of the element C stress analysis, in. 2 
X-coordinate of the element, in. 

Z-coordinate of the element, in. 

Temperature of the element, °R 
Thermal stress 
Total stress 
Creep rate 

Ultimate tensile strength, lb/in. 2 
Yield strength, lb/in. 2 
Youngs modules, lb/in. 2 
Design factor for ultimate tension 
Design factor for yield strength 
Design factor for ultimate compression 
Design factor for bucking of corrugation 
Design factor for crippling of flange 
Design factor for crippling of flange 
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Table 3-3 „ Output Symbols, continued 


Symbol Definition 


WBMS 

Creep rate 

DMAX 

Maximum deflection 

EMS 

Minimum of margins of safety 

EMAX 

Total creep strain 

TS 

Corrugation thickness, in. 

TC 

Skin thickness, in. 
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SECTION 4 


SAMPLE PROBLEM 

This problem concerns sizing a section of circular arc corrugation panel on the bottom 
centerline of the space shuttle booster. Figure 4-1 shows the panel corrugations. The 
panel is made of Rene' 41. For an initial trial, a thickness of 0.040 inch is used. 
Figure 4-2 shows the conduction matrix which is used for structural temperature re- 
sponse. QCONL(I) is used to accommodate the separation and reattachment of flow on 
the corrugations. For internal radiation, it is assumed (for simplicity) that each 
surface element interacts only with the base element at the same column. The inner 
surface is assumed to be an aluminum L0 2 tank which is kept at 168 °R until all the 
liquid oxygen is evacuated at 194 seconds in the trajectory. Figures 4-3 through 4-11 
show the input, card images of the input, and output of the sample problem. 

ALL DIMENSIONS 



SEMI-SMOOTH CORRUGATION 
Figure 4-1. Corrugation 



ALUMINUM 


AERODYNAMIC 



Figure 4-2. Conduction Modes 
4-1 



Figure 4-3. Input for Sample Problem 
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Figure 4-5. Output of Sample Problem - Input Data 
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Figure 4-5. Output of Sample Problem - Input Data, Contd 
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Figure 4-5. Output of Sample Problem - Input Data, Contd 
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Figure 4-5. Output of Sample Problem - Input Data, Contd 
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Figure 4-6. Output of Sample Problem - Results 
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Figure 4-7. Output of Sample Problem - Results and Stress Redesign 
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Figure 4-7. Output of Sample Problem - Results and Stress Redesign, Contd 
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n OUNO ARY LAYER MOTSF CRITICAL STRESS = 2.07ROE+01 PSI 

NO. O c STRESS REVERSALS = 1.16RPF+06 

***P AMEL IF GOOR cnp THIS CONDITION 

CRITICAL FT RES c MAY w IMCPEASFD TO 3.1072E+04 PSI 

MAXIMUM °ENOTMG ST^TSS - 527 PSI 

MAXIMUM °MS OEELE r 'TION = .00000 IN 

POCKET FNGIN C NOISE CRITICAL STRESS = 2.6069E+01 PS I 

NO. OF S TR r S'" p^V c P c ALp = 4.4536E+0S 

***EANEL TS coon rnP THIS conoition 

CPITICAl cTpr^c; r&Y RE T NOPE A SEo TO 3.674RE+04 PSI 

MAXIMUM PCMDTMG stores = ? PSI 

MAXIMUM omf n"FLE r TT on = . 00000 IN 

JET P L yo ACK 1NGTN- NOISE 0°TTICAL STRESS = 4.3264E-04 PSI 

NO. OF STRESS pfv'ppALS = 3.8R19F+07 

***PANEL IS GOOD POP THIS CONOITION 

CPITICAl. STRESS MAY INCREASED TO 2.20R3E4-04 PST 

MAXIMUM nPNOING STofSS = 032 PSI 

MAXIMUM RMS OCFLECTION - .00001 IN 

JET SCPUPOINO NOISE CRITICAL STRESF = 5.3767E+01 PSI 

NO. OP F TRESS PRV r PS ALF r O. 520RF4-Q4 

**»eanel t f onon pop this condition 

critical f t. P p S S may PE INCREASED TO 4 .973RE+-04 PSI 

COMPOSITP CRTTICAL ftPESS = 6.3266E+01 PSI 

NO. OE STRF SF REV ro SALS = 6.4067E + PF 

***PANEL IF p- 000 c OP THIS CONOITION 

CRTTIOAL ptrfSf MAY PE INCPEASEC TO 3.4443E+04 PSI 


Figure 4-8. Output of Sample Problem - Results of Fatigue Analysis 
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Figure 4-9. Output of Sample Problem - Input to Weight/Cost Analysis 
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Figure 4-10. Output of Sample Problem - Weight/Cost Results 
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Figure 4-11. Output of Sample Problem - Results of Program Total Cost Analysis 
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APPENDIX I 


PROGRAM SOURCE LISTINGS 
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PROGRAM TPSOPT ( INPUTfOUTPuT . T APE 5= INPUT AfP£)6=6 WTPU T V 

DIMENSION A (20) » ALPHA ( 99 ), ALT (99) »AX<9»9»9> f AY(9»9»9) ► 
1DIST (9) ► E ( 20 ► 99 ) »EAT(20»99> »EDOT(20,99> »EMlS<9) »FCY(20 
2FNEK20) »FT (20 ) »FjU(20»99) ►HINSD (99) ► MAT<9»9) »MPT(9»9) 
3NI (18) »NR(18) ,PINp(99) ,Q(g) »QCONL (9 ) ► QCONT (9 ) ► QINP < 99 ) 
4RH0(9) » T ( 20 ► 99 ) »TAMP(9*9) , TEMP (9 *9 ) , TIME (99 ) »TINSD(99) 
5»VlNF<99) *X(9) »XX<20> »Y(9) »ZZ(20 ) ,TAlLW(9) 

rv T 8»r t AM A vi « A t 


BET A ( 99 ) ► 

► 99) ► 

► MR (9» 18) 
►ONET (9) ► 
► VFACT ( 9» 


TPS 2 
TPS 3 


TPS 
► TPS 
TPS 
18 ) TPS 
TPS 
TPS 


common 

A 

► al 

► alpha 

► alt 

► AME 

► AMI 

• AOFA 

9 

TPS 

10 

iaroq 

► AS 

► Ax 

► ay 

► BATA 

► BE 

► BETA 

► BF 

9 

TPS 

11 

2BFL 

► BL 

►delta 

► DIAM 

► DIST 

► DNX 

► DNY 

► DNZ 

9 

TPS 

12 

30ST 

► £ 

► eall 

► Eat 

► EOOT 

► E MIS 

► FCY 

► FNET 

9 

TPS 

13 

4FT 

► FTU 

► Fo7 

»hh 

► HINS 

►hinsd 

►ICONF 

►IQINP 

9 

TPS 

14 

5ITURB 

► IWALT 

► mat 

► mpt 

► MR 

►NCOLM 

► NCR 

► NF 

9 

TPS 

15 

6NI 

, NPSG 

► nr 

► NrSG 

►NSECT 

► nseg 

► NTRAJ 

► PE 

9 

TPS 

16 

7PI 

,PINP 

► Q 

►QCDNl 

►qcont 

►QINP. 

► QNET 

► R 

9 

TPS 

17 

8RH0 

► RHO I 

► RyE 

► RYI 

► SL 

► SLS 

► STAAT 

► STI 

9 

TPS 

18 

9ST0OP 

► T 

► tamp 

► tau 

► TC 

► TCI 

► TEMP 

► TI 

9 

TPS 

19 

STIMt 

► TINS 

►TlNSu 

► Ts 

► UF 

►VFACT 

► VI 

► VINF 

9 

TPS 

20 

*wrote 

► x 

►XEMI5 

► XX 

► Y 

► z z 

► NCRC 

►TALLW 

9 

TPS 

21 

*NINS 

► F ACC 

► NpRT 







TPS 

22 

COMMON/SONICI/ 

ae 

► Al 

► AW 

►amach 

► BW 

► C ( 4 ) 

9 

TPS 

23 

ID 

► DT ( 4 ) 

► DvEH 

* EP 

► hpan 

► HC 

► HF 

► IPAD 

9 

TPS 

24 

2RFLtX 

► NENG 

► NpAN 

► QL 

► REY 

► RHOP 

► TJ 

► TT 

9 

TPS 

25 

3VJ 

► VS 

► Vu 

► W 

► WEJ 

► WER 

► IPF ( 4 ) 

► XI 

9 

TPS 

26 

4XJ 

► XL 

► YP 

► IPFI 

► aiy 

► DREF 

► YCL 



TPS 

27 


DO 10 1=1 ► 15161 
A ( I ) =0 . 

CALL INPUT 1 

IF (IQINP.EG.1) QL = 0. 

IGO=0 

iVF=0 

IDT=0 

ISS=0 

IST=0 

ICK = 1 

YINS=0.0 

UO 4U 1=1 ► NCOLM 

DO 40 J=1 ► NSEG 

TEMP(I»J)=TAMP(I»J) 

IF (NINS.EQ.0) GO TO 60 
DO 50 J=1 ► NSEG 
KrMAT ( 1 ► J ) 

TMAx(K)=0.0 

IF (K.EQ.NINS) YINS=YINS+Y(J 
CONTINUE 

tau=staat 

del=staat 

IF (WROTE. GT. DEL) GO TO 80 

DEL=DEL-WROTE 

GO TO 70 

IF (NCOLM, GT.l, OR. NRSG.EQ.O) 
DO 90 1=1 ► NRSG 
VFACT ( 1 ► I ) =1 . 

TAU=TAU+DELTA 
TEU=TAU-0.5*0ELTA 
IF (NTRAJ-2) 160 ► 140 » 1 10 
00 120 I=1»NTRAJ 


YINS=YINS+Y(J) 


TPS 28 
TPS 29 
TPS 30 
TPS 31 
TPS 32 
TPS 33 


TPS 36 
TPS 37 


TPS 40 
TPS 41 


TPS 44 
TPS 45 


TPS 50 
TPS 51 


Figure 1-1. Source Listing — TPSOPT 
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IF ( TEU-TIME ( I ) ) 130*170*120 

TPS 

61 

120 

CON] INUE 

TPS 

62 


i=ntkaj 

TPS 

63 

130 

IF (I-l) 140*140*150 

TPS 

64 

140 

1 = 2 

TPS 

65 

150 

FR=( TEU-TIME (I-l) ) / ( TIME ( I ) -T IME ( 1-1 ) ) 

TPS 

66 


AL= ( ALT ( I ) -ALT ( 1-1 ) ) *FR+ALT <1-1 ) 

TPS 

67 


VI=(VINF( I )-VlNF( 1-1) )*FR+VINF(I-l) 

TPS 

68 


AOFA=( ALPHA { I) -ALPHA ( 1-1) ) *FR+ ALPHA ( 1-1 ) 

TPS 

69 


bATA= (BETA ( I ) -BETA ( I“1 ) ) *F W +B£TA ( 1-1 ) 

TPS 

70 


HINS=(HINSO(I)-HlNSD( 1-1) )*FR+HINSD{ 1-1) 

TPS 

71 


TINS=(TINSD( I)-TINSD( 1-1) ) *FK+TINSD ( 1-1 ) 

TPS 

72 


IF UQlNP.GT.l) GO TO 180 

TPS 

73 


GO TO 210 

TPS 

74 

160 

1 = 1 

TPS 

75 

170 

AL=ALT( I ) 

TPS 

76 


VI=VINF(I) 

TPS 

77 


AOFA=ALPHA( I ) 

TPS 

78 


bATA=BETA( I ) 

TPS 

79 


HINS=HINSC(I) 

TPS 

80 


TINS-TINSD( I ) 

TPS 

81 


IF (IQINP.GT.1) GO TO 180 

TPS 

82 


GO TO 210 

TPS 

83 

180 

DO 200 I=l*NCOLM 

TPS 

84 


IF ( IQINP.EQ.3) GO TO 190 

TPS 

85 


G( I )=AL*UCONL( I ) 

TPS 

86 


PE=Vl 

TPS 

87 


GO TO 200 

TPS 

88 

190 

TEMP(I#1)=AL*QCONl<I> 

TPS 

89 


PE=V1 

TPS 

90 

200 

CONTINUE 

TPS 

91 


toC 10 230 

TPS 

92 

CIO 

CALL PRA63(AL»PI*Tl*KH0I*ICK) 

TPS 

93 


IF (ICK.LG.O) GO TO 310 

TPS 

94 


IF (IQINP.NE.1) GO TO 220 

TPS 

95 


AMI=VI/(49.01*SQRT(TI) ) 

TPS 

96 


GI=0.5*RHOI*VI**2 

TPS 

97 


IF (OI.LT.OL) GO TO 220 

TPS 

98 


GL=GI 

TPS 

99 


AMACH=AMI 

TPS 

100 


\/U=Vl 

TPS 

101 


REY=KH0I*VU*XL/(2.27E-8*TI**1.5/(TI+198,6> ) 

TPS 

102 

C20 

CALL THERMO (IGO) 

TPS 

103 


IF (IGO.EQ.l) GO TO 310 

TPS 

104 

230 

CALL CONDTN(IVF) 

TPS 

105 


IF (IVF.NE.2) GO TO 240 

TPS 

106 


WRITE (6*360) DELTA 

TPS 

107 


GO |0 30 

TPS 

108 

240 

IF (NINS.EQ.O) GO TO 300 

TPS 

109 


GO 250 1=1* NCOLM 

TPS 

110 


DO 250 J=1 * NSEG 

TPS 

111 


K=MAT(I, J) 

TPS 

112 


IF (TEMP(I*J) .GT.TMAX(K) ) TMAX (K ) =TEMP ( I * J ) 

TPS 

113 

250 

continue 

TPS 

114 


DO 260 K = 1 * 9 

TPS 

115 


IF (TMAX(K) .GT.TAlLW(K) ) GO TO 270 

TPS 

116 

260 

CONTINUE 

TPS 

117 


GO TO 300 

TPS 

118 

270 

YINS=0.0 

TPS 

119 


DO 280 L=1*NSEG 

TPS 

120 


Figure 1-1. Source Listing — TPSOPT, Contd 
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KK=MAT(1*L> 

IF (KK.NE.NINS) GO TO 280 
Y (L)=FACC*Y (L) 

YINS=YINS+Y(L) 

CONTINUE 

WRITE (6*390) K*K,TMAX(K) ,K,TALLW(K) »TAU 
WRITE (6*410) YlNs 
IF ( YINS.GT.1.0) GO TO 290 
WRITE (6*420) 

GO TO 30 
WRITE (6*400) 

WRITE (6*420) 

STOP 

OEL=DEL+DECTA 

IF (1DT.NE.1) GO TO 320 

IDT=2 

GO TO 30 

IST=2 

GO TO 330 

IF (TAU+.01*DELTA,LT. STOOp. AND. DEL+.01*DELTA.LT. WROTE) GO 
IF (TAU+.01*DELTA.GE. STOOP) IST = 2 
IF (NINS.NE.O) GO TO 330 
CALL STRESS (ISS. 1ST ) 

IF (NPRT.EQ.i. AND.TAU.LT. STOOP) CALL PRINTl(ISS) 

IF (IST.EQ.2) GO TO 340 
OEL=0. 

GO TO 100 

IF (IGO.EO.l) WRITE (6*370) 

IF (ICK.EG.O) WRITE (6»38q) 

CALL FATIG(NSECT*TC* TS) 

T1=YINS 
T2 = 0. 

T3=0. 

CALL DRVTPS(T1.T2,T3*TS,TC) 

DO 3S0 1=1*9 
Q(I)=0. 

QNET( I ) =0 . 

DO 3S0 J = 1 * 9 
TEMP( I* J)=0. 

GO TO 20 


) FORMAT (32H ***** DELTA HAS BEEN CHANGED TO,E10.4*10H SEC *♦***) TPS 

) FORMAT (46H ***** LOCAL VELOCITY SQUARE IS NEGATIVE ♦****) TPS 

) FORMAT (42H ***** ALTITUTE.LT. 0, OR. GT. 700000 FT **♦**) TPS 

) FORMAT (//56H0***** INSULATION SIZING NOTE **TPS 

1***//25H TEMPERATURE OF MATERIAL *I2*17H BECAME TOO HIGH../6H TMAXTPS 
2(*I1*3H) =*F5.0*6H DEG-R*/7H TALLW ( * II * 3H) =.*F5.0*6H DEG-R./7H TIMTPS 
3E =tF5.0*4H SEC*/) TPS 

) FORMAT ( 43H THICKNESS OF THE INSULATION IS UNREALISTIC/34H PROBLEMTPS 
1 WAS DELETED AT THIS POINT) TPS 

) FORMAT (44H THICKNESS OF THE INSULATION WAS CHANGED TO *F6,4,3H FTTPS 
1) TPS 

) FORMAT ( 34H0***** END OF NOT E ***♦*) TPS 

END . TPS 


IS UNREALISTIC/34H PROBLEMTPS 

TPS 


*****) 


Figure 1-1. Source Listing — TPSOPT, Contd 
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FUNCTION ALL ( ARR » CY ) 

DIMENSION ARR(4) 

Al (X)={ ARR(1)+ARR(2) *X+ARR(3)*X**2+ARR(4)*X**3)*1000.0 
Y=ALOG10(CY) 

YY=ALOG10(1.01*CY) 

ALL=(A1 ( YY)-Al(Y) )/(0.01*CY)*CY 

RETURN 

END 


ALL 1 
ALL 2 
ALL 3 
ALL 4 
ALL 5 
ALL 6 
ALL 7 
ALL 8 


Figure 1-2. Source Listing — ALL 
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FUNCTION APP(SLD*CY*CYL*ARR) APP 

COMMON/APP1/NOAPP APP 

DIMENSION C(3)* ArR(4) APP 

DATA <CU) *I=1,3)/2.631102E-02*-2.635E-02*-4.939331E-01/ APP 

Al(X)=2./PI*AC0S(l.-Pl/1.2l2*(l.-X> > APP 

A2(X)=(-C(2)-SGRT(C(2)**2-4,*C(3)*(C( l)-ALOG(X) ) ) ) /<2.*C(3) ) APP 

A3(X)=(ARR(1)+ARR(2)*X+ARR<3)*X**2+ARR(4)*X**3)*1000, APP 

PI=3. 14159 APP 

Y=CY/CYL APP 

IF ( Y.GT. 0.455. AND. Y.LT. 1.0) GO TO 30 APP 

YY=Y-0.0001 APP 

IF (YY.GE.O.) GO TO 20 APP 

YY=0. APP 

IF (A2(Y)*SLD.6T.A3( Y) ) GO TO 10 APP 

WRITE (6*50) APP 

NOAPP=l APP 

RETURN APP 

10 NOAPP=2 APP 

WRITE (6*60) APP 

RETURN APP 

20 Z=< Ac(Y)-A2(YY) )*l0000. APP 

APP=Z*SLD/CYL*CY APP 

RETURN APP 

30 YY=Y+0.0001 APP 

IF (YY.LE.l.) GO TO 40 APP 

YY=1. APP 

FACT=YY-Y APP 

Z=(A1(YY)-A1(Y) )/FACT APP 

APP=Z*SLD/CYL*CY APP 

RETURN APP 

40 Z=(A1(YY)-A1(Y) )*10000. APP 

APP=Z*SLD/CYL*CY APP 

RETURN APP 

C APP 

50 FORMAT (///50H ***** SONIC FATIGUE NOTE *****/5APP 
10H THE NUMBER OF STRESS REVERSALS IS SO LOW THAT /50H FATIGUE APP 

2IS NOT A FACTOR FOR THIS CONFIGURATION /50H AND ALLOWABLE S-N CUAPP 

3RVE. THE ACOUSTIC FATIGUE /50H ANALYSIS FOR THIS NOISE SOURCE IAPP 

4S OMITTED. /7X.35H***** END OF NOTE *****//) APP 

60 FORMAT (47H0APPLIED S-N CURVE EXCEEDS ALLOWABLE S-N CURVE.) APP 

END APP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 
41- 


Figure 1-3. Source Listing — APP 
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non 


FUNCTION BANDW(F) 


BND 

1 



BND 

2 

this subroutine computes banowioth as a function 

BND 

3 

OF FREQUENCY 


BND 

4 

DIMENSION FTB<13) ,BWTB< 13) 


BND 

5 

DATA FTB/ 2.* A- « > 0.* le.> 


BND 

6 

1 31.5 >63.0 > 125. >250. >500. 

9 

BND 

7 

2 1000. >2000. >4000. >8000. / 


BND 

8 

DATA BWTB/1.35> 2.75> 5.5» 11. > 


BND 

9 

1 22.5 >45.0 >90.0 >180. >355. 

9 

BND 

10 

2 700. >1400. >2800. >5600. 

/ 

BND 

11 

IF (F.GE. . 65. AND. F.LE. 10800.) GO TO 10 


BND 

12 

WRITE ( 6 > 30 ) F 


BND 

13 

IF <F,LT .0.65) 8AnDW=1»35 


BND 

14 

IF CF.GT. 10800.) bANDW=5600. 


BND 

15 

RETURN 


BND 

16 

10 1 = 0 


BND 

17 

20 1=1+1 


BND 

18 

IF (F.GT.(FTB(I)+BWTtt(I>/2.)) GO TO 20 


BND 

19 

bANOW=BWTB(I) 


BND 

20 

RETURN 


BND 

21 



BND 

22 

30 FORMAT (19HOFREO. ARG, ERROR =El2.4) 


BND 

23 

END 


BND 

24. 


Figure 1-4. Source Listing — BANDW 
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BLOCK DATA 
COMMON/WTCOST/ 

1KLIC , N , ACWT , KT » ITL ,LEN, WID, LTUBER 

2, MAfcT,KK» A0P(7,7) ,KMUV(100*3) , KSETUP (100* 21 ) » KRUN < 100 , 21 ) 

3, KCC (5*21 ) , TIME (7) , TMAT < 3 ) ,DiAMA (6) »wTNUT(6) ,TBTABL(6> 

4 , KCOSWT ( 100 » 3) 

COMMON/ALPHAN/ 

1ANAMK22) , ANAM2 ( 22 > , ANAM 3 ( 22 ) 
real ksetup *krun,kcc,muv* maw t,kmuv 
real KCOStvT 

REAL LARATE.LABHR,LACOST*MECOS»MATCOS 
DATA 

1 ANAM1/4HINSU » 4H INS,4H INS*4H INS » 4HP ANE » 4H C0R,4H EDG,4H HON. 
24H RIB.4H SKI »4HST r 0»4H B£A.4H BEA.4H COR, AH INS.4H POS.4H SEA. 
34H INS.4H BEA.4H BEA.4H POS.4H FAS/ 

DATA 

2 * 4HUL 3.4HL » 4HRUGN . 4HES . 4HEYC0 . 

LN.4HM SH.4HNERS.4HERTS.4HT C0.4HL » 
CL.4HTENE/ 


»2HS .2H .2HMB.2H »2h . 2HE 

.2H0R.2H C.2H C.2HNT.2HRS/ 


1ANAM2/4HLATI .4HUL 1.4HUL 
24HS » 4HN .4HCTUR.4HM 
34HULAT.4HM LN.4HM SH.4HT 
DATA 

1ANAM3/2H0N.2H »2H *2H ,2H 

22H A.2H A.2H .2H .2HRN.2H 
DATA 

1TBTABL/.036. .045. ,12b, .150* .200, .250/. 

2DIAMA/.125, .156. .1875. .250* .3125, .375/, 

3WTNUT / . 0006. .00076* .00 088, .00164, . 00425 , . 00672/ » 

4TIME/.035, .0006 ,.001,. 0015*. 012,. 0012, .52/, 

5TMAT/1.0»3. 0,3.0/ 

DATA 

1KMUV/300*1.1/ 

DATA 

1KSETUP ( 1 . 1 ) , KSETUP (2*1), KstTUP ( 3 * 1 ) , KSETUP (4,1) .KSETUP (5,1), 
2KSETUP ( 11 , 1 ) , KSETuP ( 12 , 1 ) , KSETUP ( 13 , 1 ) , KSETUP (21 , 1 ) .KSETuP ( 51 , 1 > v 

3.0005. . 0006. .0007. .0008. .0010. .0010. .0020. .0024. .0016. .0050/ 

4, KSETUP (61,1) .KSETUP (71.1) , KSETUP (91,1) .KSETUP (92.1) , KSETUP ( 93, 1 ] 

5.0001. . 0001. .0008. .0U08, .0008/ 

DATA 

1KSETUP (11,4) , KSETUP (12,4) , KSETUP ( 13, 4 > , KSETUP ( 21 , 4 ) . KSETUP ( 51 , 4) / 

2. 0100.. 0110. .0120. .0100. .0200/ 

DATA 

1KSETUP (1»7), KSETUP (3*7), KSETUP (4,7), KSETUP (5,7)/ 

2.0012, .0016, .0018, .0020/ 

DATA 

lKSETUP(l.lO) .KSETuP (2, 10) , KSETUP ( 3 , 1 0 > .KSETUP ( 4 , 10 > , KSETUP ( 5 , 10 ) 1 
2KSET0P( 11,10) .KSETUP l 12, 10> .KSETUP ( 13* 10 ) * KSETUP ( 21 , 10 ) / 

3.0020. . 0025. .0030. . 0035. . 0040 . . 0050 . . 0070 . . 0090 . . 0050/ 

DATA 

1KSETUP(1»13) .KSETUP (2, 13) , KSETUP ( 3, 13) .KSETUP (4, 13) .KSETUP ( 5, 13) , 

2 . 0010 .. 0010 .. 0010 ,. 0010 ,. 0010 / 

DATA 

1 KSETUP( 1 » 16 ) , KSETuP (2,16) .KSETUP ( 3, 16 > .KSETUP ( 4 , 16 ) ,KSETUP( 5 » 16 ) 
2KSETUP(11» 16) , KSETUP (12,16) , KSETUP ( 13 » 16) , KSETUP ( 21 , 16 ) / 

3. 00 12.. 0014.. 00 16.. 0018. .0020. .0040. .0060. .0080. .0040/ 

DATA 

1KSETUP( 1 » 19) .KSETUP (2, 19) , KSETUP ( 3, 19 ) , KSETUP ( 4, 19) , KSETUP (5, 19) 
2KSETUP( 11, 19) ,KSETUP( 12,19> , KSETUP ( 13 , 19) ,KSETUP(21, 19) , 

3K SETUP (51, 19)/ 

4.0008. . 0008. .0009. . 0009. . 00 10 . . 0014 . . 0016. . 0018 . . 0014 . . 0020/ 

DATA 

1KRUN (1,1 ) ,KRUN(2, l ) ,KRUN(3* 1 > »KRUN(4, 1 ) ,KRUN(5» 1 ) ,KRUN( 11,1) , 


blk 

1 

blk 

2 

BLK 

3 

BLK 

4 

BLK 

5 

BLK 

6 

BLK 

7 

BLK 

8 

blk 

9 

BLK 

10 

BLK 

11 

BLK 

12 

BLK 

13 

BLK 

14 

BLK 

15 

BLK 

16 

BLK 

17 

BLK 

18 

BLK 

19 

BLK 

20 

BLK 

21 

BLK 

22 

BLK 

23 

BLK 

24 

BLK 

25 

BLK 

26 

BLK 

27 

BLK 

28 

BLK 

29 

BLK 

30 

blk 

31 

BLK 

32 

BLK 

33 

BLK 

34 

/BLK 

35 

BLK 

36 

BLK 

37 

BLK 

38 

BLK 

39 

BLK 

40 

BLK 

41 

BLK 

42 

BLK 

43 

BLK 

44 

BLK 

45 

blk 

46 

BLK 

47 

' BLK 

48 

BLK 

49 

BLK 

50 

BLK 

51 

BLK 

52 

BLK 

53 

BLK 

54 

BLK 

55 

BLK 

56 

BLK 

57 

BLK 

58 

BLK 

59 

BLK 

60 
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2KRUN (12,1), KRUN( 13 * 1 ) , KRUN ( 21 , 1 ) , KRUN( 51 * 1 ) / 

3.0050. . 0060 . .0070. .0080 . .0100. .0160 . . 0200 . .0240 , .0160 , , 0300/ 

4 * KRUN (61,1) , KRUN ( 7 1 , 1 ) ,KRuN(91»1) , KRUN (92,1) * KRUN (93*1)/ 

5.0010. . 0010. .0080. .0080. .0080/ 

DATA 

1KRUN (11,4) , KRUN (12,4) ,KRUN< 13,4) ,KRUN( 21,4) ,KRUN( 51,4)/ 

2 . 1000 .. 1100 . . 1200 . . 1000 . . 2000 / 

data 

1KRUN (1,7) , KRUN (3, 7) ,KRUN(4»7) , KRUN (5,7)/ 

2.0120,. 0160, .0180, .0200/ 

DATA 

1KRUN(1,10) , KRUN (2,10) ,KRUN( 3,10) ,KRUN( 4,10) ,KRUN( 5 » 10), 

2KRUN (11,10) ,KRUN(12,10) ,KRUN(13,10) ,KRUN ( 21 , 10 ) / 

3.0200, .0250, .0300, .0350, .0400, .0500, ,0700, .0900, .0500/ 

DATA 

1KRUN (1,13) , KRUN (2, 13) ,KRUN<3,13) , KRUN <4, 13) ,KRUN(5»13)/ 

2 . 0100 . . 0100 . . 0100 . . 0100 . . 0100 / 

DATA 

1KRUN11, 16) , KHUN (2, 16) ,KRUN(3* 16) , KRUN ( 4 , 16 ) , KRUN ( 5 » 16 ) , 

2KRUN ( 1 1 » lfc ) , KRUN ( 12,16) , KRUN (13, 16) »KRUN ( 21 , 16 ) / 

3.0120. . 0140. .0160. . 0 180 . . 0^00 , . 0400 , .0600, .0800, .0400/ 

DATA 

1KRUN (1,19) , KRUN (2, 19) , KRUN ( 3 » 19 ) , KRUN ( 4 , 19 ) , KRUN ( 5 » 19 ) , 

2KRUN (11,19) , KRUN ( 12, 19 ), KRUN (13, 19) ,KRUN(2l,l9) , KRUN ( 51 , 19) / 

3.0080. . 0080. .0090. .0090».010U,.0140*.016G, . 0 180 ,. 0 140 ,. 0200/ 

DATA 

1KC0SWT( 1,1 ) ,KCOSWT( 2,1) ,KC0SWT (3,1 ) ,KCOSWT (4,1) ,KCOSWT( 5,1) , 
2KCOSWT (11,1) ,KC0SwT( 12,1) , KCOSWT ( 13* 1 > , KCOSwT ( 21 , 1 ) ,KCOSWT(5l , 1 ) 
3KCOSWT (81,1)/ 

415.00. 14.50.14.00.13.50.13.00.12.00.12.50.14.00.10.50.65.00, 
5132.71/ 

6, KCOSWT (61, 1) , KCOSWT ( 71, 1 ) » KCOSWT ( 91,1 ) , KCOSWT ( 92 , 1 ) ,KCOSWT493,l 
. 0 *> , *«•'. OR , 5(! • t)t)/ ■ ’ 

real, TABLE 

rate table 

OVERHEAD RATE TABLE 
DATA 

1KCC ( 5 , 1 ) »KCC(5*2) , KCC ( 5, 3) / .4 , 4 . 75, 1 , 75/, 

2KCC (2,4) , KCC (2,5) , KCC ( 2, 6) / .4, 4, 75 , 1 . 75/, 

3KCC (2,7) , KCC (2, 8) , KCC ( 2, 9 ) / .4, 4 , 75, 1 . 75/, 

4KCC(1,10) , KCC (1,11) , KCC (1,12)/. 4, 4. 75, 1.75/, 

5KCC(1,13) , KCC (1,14) » *CC ( 1 , 15) / .4 , 4 .75, 1 .75/ , 

6KCC( 1,16), KCC (1,17) ,KCC ( 1 , 18) /.4 , 4 . 75, 1 . 75/ , 

7KCC (3,19) , KCC (3, 20) , «CC < 3,21 ) /.4 * 4.75* 1 .75/ , 

8KCC(6,1) , KCC (6,2) , KCC ( 6, 3 ) / .4 , 5 . 20 » 1 . 75/ , 

9KCC(7,1) , KCC (7,2) , KCC ( 7, 3) / .4,5,20 , 1 . 75/ 

END 


BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
, BLK 
BLK 
BLK 
BLK 
)/BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 
BLK 


61 
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65 
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85 
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SUBROUTINE BUCKNG(E,F7»FCR#FCY»FTU»NCR> 
D£=LMl.-l./(l. + .428t>*(FCR/F7)**<NCR-l ) ) ) 

IF ( ,001*£.GE,ABS<DEn GO TO 20 

£TA0=0.7 

ETAA=F7/FCR 

10 ETAi=£TAA*( ( i./ETAO-l.) *2.333 )**<1./ (FLOAT (NCR) -1.) > 
OETA=ETA1-ETAO 
IF (ETA1.6T.1.) ETA1=1. 

IF ( .01*ETA0.GE.ABS(UETA) ) GO TO 30 
£TAu=0.5*(ETA0+ETAl) 

GO TO 10 

20 £TAi=i. 

30 FCR=FCR*ETA1 

IF <1.1*FCY.GE.FCR) GO TO 40 
FCR=1.1*FCY 

40 IF (FTU.GE.FCR) Go TO 50 
FCRrFTU 

50 RETURN 
tNU 


BCK 1 
BCK 2 
BCK 3 
BCK 4 
BCK 5 
BCK 6 
BCK 7 
BCK 8 
BCK 9 
BCK 10 
BCK 11 
BCK 12 
BCK 13 
BCK 14 
BCK 15 
BCK 16 
BCK 17 
BCK 18 
BCK 19- 


Figure 1-6. Source Listing — BUCKNG 
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subroutine condtn<ivF) 




CND 

1 





CND 

2 

DIMENSION A1 (9,9) , A2(9*9) ,A3(9,g) ,NRA<18) ,QN(4) 

,02(9) , 

VF(9, 18) , 

CND 

3 

1DX ( 9 ) ,DY(9»9) ,A4(9*9) 




CND 

4 

DIMENSION A (20) » ALPHA (99) , ALT ( 99 ) , AX (9 ,9, 9 ) , AY ( 9,9 » 9) , 

BETA ( 99> , 

CND 

5 

ID 1ST ( 9) »£( 20 »99) »EAT (20,99) ,ED0T ( 20 , 99 ) »EMIS (9 > 

»FCY ( 20 

,99) , 

CND 

6 

2FNEK20) ,FT(20) ,FrU(20»99) #HINSD(99) ,MAT(9,9) #MPT(9,9) 

,MR(9»18> , 

CND 

7 

3NI (18) ,NR(18) ,PINP(99) ,Q(g) , GCONL ( 9 ) , QCONT ( 9 ) ,QINP(99) 

, QNET (9) , 

CND 

8 

4RH0,( 9) ,T (20,99) ,TAMP(9,9) , TEMP ( 9 , 9 ) , TIME (99) ,TINSD(99) 

»VFACT(9»18)CND 

9 

5, V INF (99) ,X(9) ,XX(20) ,Y(9) ,Z2 (20) ,TAlLW(9) 



CND 

10 

COMMON A ,AL , ALPHA 

,alt ,ame 

, AMI 

, AOFA , 

CND 

11 

1AROD , AS *Ax ,AY 

, BAT A ,BE 

,BETA 

, BF , 

CND 

12 

2BFL , BL , DELTA ,DlAM 

, DIST , DNX 

,DNY 

, DNZ , 

CND 

13 

3DST , E ,EALL ,EAT 

,ED0T ,EMIS 

,FCY 

, FNET , 

CND 

14 

4FT , FTU ,Fo7 * HH 

,HINS ,HINSD 

»ICONF 

, IQINP , 

CND 

15 

5ITURB , 1 WALT ,MaT ,MpT 

, MR ,NCOLM 

,NCR 

, NF , 

CND 

16 

6 NI , NPSG ,NR ,NRSG 

,NSECT »NSEG 

,NTRAJ 

, PE , 

CND 

17 

7PI , PINP , 0 , QC°NL 

, QCONT ,QINP 

,QNET 

, R , 

CND 

18 

8RH0 , RHOI ,RyE »RYl 

, sl ,sls 

,ST AAT 

,STI , 

CND 

19 

9ST00P , T ,TAMP ,TAU 

, T C ,TC1 

,TEMP 

»TI , 

CND 

20 

*time ,tins ,tinsd ,ts 

, UF , VFACT 

,VI 

, VINF , 

CND 

21 

SWROTt: ,X ,X£M1S ,xx 

, Y , ZZ 

,NCKC 

, T ALLW , 

CND 

22 

SNINS , FACC ,NpRT 




CND 

23 





CND 

24 

I1 = U 




CND 

25 

AlS=U. 




CND 

26 

USS=0. 




CND 

27 

IF (NRSG.EQ.O) GO TO 20 




CND 

28 

L=U 




CND 

29 

DO 10 I=1,NRSG 




CND 

30 

10 NRA(I)=NR(I) 




CND 

31 

20 X2=0. 




CND 

32 

DO 70 I=1,NC0LM 




CND 

33 

IF (NCRC.LT #2) GO TO 30 




CND 

34 

X1=X2 




CND 

35 

X2=XX(I)**2 




CND 

36 

DX(I)=3.1416*(X2-Xl) 




CND 

37 

GO TO 40 




CND 

38 

30 DX(I)=X(I) 




CND 

39 

40 IF (IQINP.EG.3) GO TO 50 




CND 

40 

QNET ( I ) =0 ( I ) -0 . 476E~12*XEMl S*TEMP ( I , 1 ) **4 



CND 

41 

50 DO 70 J=1,NSEG 




CND 

42 

K=MAT(I,J) 




CND 

43 

KzIABS(K) 




CND 

44 

IF (K.EQ.O) GO TO 70 




CND 

45 

CP=TRPLAT(AY»AX,TeMP(I»J) ,k,i 

,MPT(K, 1 ) ) 



CND 

46 

EK=1.8E3/TRPLAT(Ay, AX,TEMP(I , 

J) , K , 2 , MPT (K , 2 ) ) 



CND 

47 

A1(I,J)=CP*RH0(K)*DX(I)*Y(U) 




CND 

48 

XY=DX(I)/Y(J) 




CND 

49 

A3(I,J)=EK/XY 




CND 

50 

IF (NCRC.EQ.2) GO TO 60 




CND 

51 

OY(I,J)=Y(J) 




CND 

52 

A2(I,J)=EK*XY 




CND 

53 

GO TO 70 




CND 

54 

60 A2(I,J)=.3183*EK*AL0G(XX(I)/(XX(I)-.5*X(I) ) )/Y(J) 


CND 

55 

DY< I,J)=6.2832*XX(I)*Y( J) 




CND 

56 

IF (I.EQ.l) GO TO 70 




CND 

57 

A4(I,J)=.3183*EK*AL0G( (XX(I)- 

,5*X(I) )/XX(I-l) )/Y(J) 


CND 

58 

70 CONTINUE 




CND 

59 

DO 370 J=1»NSEG 




CND 

60 


Figure 1-7. Source Listing — CONDTN 


1-11 



DO 370 I=l»NCOLM 

IF (MAT ( I »J) . EQ.O) GO TO 370 

IF (IQINP.EQ.3.AND.J.E0.1) GO TO 190 

GS=0. 

DO 330 K = l»4 
GO TO (80.90»100»110)» K 
80 IF (I.EQ.l) GO TO 120 

IF (MAT(I-1»J)) I20»210»l40 
90 IF ( I , EQ. NCOLM, OR .MA T ( I , U ) .LT .0, ) GO TO 120 
IF ( MAT ( I +1 , J ) ) Ife0*210flb0 
J.00 IF (o.EQ.l) GO TO 130 

IF (NCOLM.EQ.l) GO TO 150 
IF (MAT ( I , J— 1 ) ) 150 » 21 0 » 15° 

110 IF (J.EQ.NSEG) GO TO 320 

IF (MAT ( I* J+l) ) IqO t 200 , IgO 
120 GN(K)=0. 

GO TO 330 

130 ON ( 3) zQNET ( I ) *DX ( I ) 

GO TO 330 
140 ON ( 1 ) z—QN ( 2 ) 

GO TO 330 
150 oN(3)=-G2(i) 

GO TO 330 

160 IF (NCRC.LE.l) GO TO 170 
SA=A2(I» J)+A4(I+1.J) 

GO TO 180 

170 SA=A2(I , J)+A2(I+1,J) 

180 ON ( 2 ) = ( TEMP ( I +1 , J ) — TtMP ( I » J ) )/SA 
GO TO 330 

190 GN(4)=(TEMP(I , J+l ) -TEMP ( 1,0) )/(A3(I»J+l)+A3(I»J) ) 
Q2 C I ) =QN ( 4 ) 

IF (iuINP.EQ.S.ANo.O.Ea.l) GO TO 370 
GO TO 330 
200 GN(K)=0. 

IF (NCOLM.GT.l) GO TO 210 
IJ=1 
Mr 1 
L=L+1 
N=J+2 
GO TO 240 
210 QN(M=0. 

IF (NRSG.EQ.O) GO TO 330 
NRP=10*I+J 
DO 220 L=1»NRSG 
IF (NRP.EQ.NRA(L) ) GO TO 230 
220 CONTINUE 
GO TO 330 
230 NRA(L)=0 
IJ=Nl (L) 

240 DO 310 II=1»IJ 

IF (NCOLM.EQ.l) GO TO 250 
M=MR( II»L)/1Q 
N=MR(II,L)-10*M 
250 IF (IVF.EQ.1) GO TO 300 

IF (K.EQ.l . OR.K.EQ.2) GO TO 260 
RL=DX(I) 

GO TO 270 
260 RL=DY(I»U) 

270 Ml=MAT(I»J) 

E1=EMIS(M1 ) 


CND 

61 

CND 

62 

CND 

63 

CND 

64 

CND 

65 

CND 

66 

CND 

67 

CND 

68 

CND 

69 

CND 

70 

CND 

71 

CND 

72 

CND 

73 

CND 

74 

CND 

75 

CND 

76 

CND 

77 

CND 

78 

CND 

79 

CUD 

80 

CND 

81 

CND 

82 

CND 

83 

CND 

84 

CND 

85 

CND 

86 

CND 

87 

CND 

88 

CND 

89 

CND 

90 

CND 

91 

CND 

92 

CND 

93 

CND 

94 

CND 

95 

CND 

96 

CND 

97 

CND 

98 

CND 

99 

CND 

100 

CND 

101 

CND 

102 

CND 

103 

CND 

104 

CND 

105 

CND 

106 

CND 

107 

CND 

108 

CND 

109 

CND 

110 

CND 

111 

CND 

112 

CND 

113 

CND 

114 

CND 

115 

CND 

116 

CND 

117 

CND 

118 

CND 

119 

CND 

120 
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M2=MAT(M»N) CND 121 

IF (M2.EQ.0) GO TO 2*0 CND 122 

E2=EMIS(M2) CN D 123 

E12=E1*E2/<1,-(1.-E1>*(1.-E2)> CND 124 

GO TO 290 CND 125 

^80 £12=£1 CND 126 

290 VF(II,L)=0.476E-12*E12*RL*VFACT(II»L) CND 127 

IF (L.EO.NRSEG.ANd.H.EQ.I^) IVF = 1 CND 128 

3Q0 QR=vF ( 1 1 »L ) * (TEMP ( M»N) **4-TEMP { I * J) **4 ) CND 129 

310 QN(K)=QN(K)+GR CND 130 


GO TO 330 

320 UN(4)=HINS*DXU)*(TINS-TEmF(I»J> ) 
IF (HINS.GE.1.E9) QN(4)=-QS 
330 GS=QS+QN(K) 

QSS=GlSS+GS 
A1S=A1S+Al ( I » J) 

11 = 11+1 

IF (MAT ( I » J) «LT .0. ) GO TO 370 

DET=DELTA*QSS/A1S 

IF ( ABS(DET) .LT.500. ) GO T<-> 340 

WRITE ( 6 » 390 ) I,J 

IMF -2 

DELTAsO, 5+DELTA 

IF (DELTA. GE. 0.1) GO TO 380 

WRITE ( 6 » 4 00 ) 

STOP 

340 TEMp(I# J)=TEMP(I# j)+UET 
IF (Il.LE.l) GO TO 360 
DO 350 12=2 >11 
13=1-12+2 

550 TEMp ( 13-1 » J ) =TEMP ( 1 3 » J ) 

560 11=0 
A1S=0. 
oss=o. 

370 CONTINUE 
580 RETURN 

390 FORMAT (1H0.14HSEGMENT NUMBER# 13* 
1ER THEN 500 DEG . ) 


CND 131 
CND 132 
CND 133 
CND 134 
CND 135 
CND 136 
CND 137 
CND 138 
CND 139 
CND 140 
CND 141 
CND 142 
CND 143 
CND 144 
CND 145 
CND 146 
CND 147 
CND 148 
CND 149 
CND 150 
CND 151 
CND 152 
CND 153 
CND 154 
CND 155 
CND 156 

» 43HTEMPERATURE CHANGE IS GREATCND 157 

CND 158 


400 FORMAT (35H PROBLEM WAS DELETED AT THIS POINT.) 
END 


CND 159 
CND 160- 
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subroutine cost 




CST 

1 

COMMON/WT A/ 




CST 

2 

1 A t B » CHORD 

»E1RIB 

t E2R IB 

f E3RIB » 

CST 

3 

2HBEAMA »HFNG1 r HFNG 2 

*HRIB 

»hring 

►IDFNG1 r 

CST 

4 

31DFNG2 #KINDP 'KINDS 

» LENGTH 

t DLPANL 

*LTUBE . 

CST 

5 

4NRIBS rODPOSR 'OOPOsT 

* ODRIN& 

t RADIUS 

*tbmla t 

CST 

6 

5TBMLC » TBMSA »TBMSc 

* TCORE 

,TCORN 

* TDOUBC » 

CST 

7 

6TD0UBP t TEOGE ( » TFNGl 

*TINS1 

»TINS2 

* TINS3 , 

CST, 

8 

7TPLATE » TPOST 'TlRlB 

f T2RIB 

»TWRIB 

*TRIBL . 

CST 

9 

8 TRIBS » TRING1 »TRINg2 

#tseal 

»TSKIN1 

»TS«IN2 . 

CST 

10 

9TTUBE » WIDTH 'WBEAmA 

t WBMLC 

r WBMSC 

»DWPANL * 

CST 

ll 

*wPOST t WR IBL * WRIB 5 

► PBM 

1 PCORE 

* PEDGE » 

CST 

12 

$PINS1 * P1NS2 » PINS 3 

*PPOST 

t PRIB 

*PSEAL . 

CST 

13 

4PSKIN1 »PSKIN2 • PTUBe 

* GBOLT 

t gclamp 

* GINSPT ► 

CST 

14 

SGINSUL #GNUTPL 'GWASH 




CST 

15 

COMmON/WTCOST/ 




CST 

16 

1KLIC iN » ACWT 

*KT 

*itl »len* 

WID* LTUBER 

CST 

17 

2*MAWT»KK, A0P(7,7) ,KMUV(10o»3> 

r KSETUP (100*21) f KRUN (100*21) 

CST 

18 

3»KCC (5» 21 ) » TIME ( 7 ) » TMAT ( 3 ) #DI AMA ( 6 ) »WTNUT< 6 ) rTBTABL ( 6 ) 

CST 

19 

4 t KCOSWT (100*3) 




CST 

20 

COMNiON/ZERO/ 




CST 

21 

1 TOPWT»TACWT»TMAWT» TTSHR # tTLbHR » TTLACO » 

TTVCOS,TTFCOS»TTMCOS. 

CST 

22 

2Tasyco»labhr, lacost,vcost,tstdhR* 

TLACOS » TVCOST »TFCOST 

CST 

23 

COMMON/COMTOT/ CF , K1 * STPS , AT * 

K2 » BT * TDH * 

c*egth,nfta 

»EFTSrNPA»ETA, 

CST 

24 

1EFA,NFLTS,TUNWT 




CST 

25 

REAL Kl»K2 




CST 

26 

real ksetup»krun#kcc»muv»mawt 

» KMUV 



CST 

27 

REAL KCOSVvT 




CST 

28 

COMMON/ ALPHAN/ 




CST 

29 

1ANAMK22) , ANAM2(22) »ANAM3(22) 



CST 

30 

REAL LBMLAr LBMSA, LPANL* LPOST, LSEaL* 

LEN 


CST 

31 

REAl LAR ATE . LABHR , LACOST * MFCGS * MATCOS 



CST 

32 

JJ =1 




CST 

33 

SHPSET=1. 




CST 

34 

OPWT =0 




CST 

35 

K0P=0 




CST 

36 

NOP=7 




CST 

37 

COSvgT=KCOSWT<KK»Jj) 




CST 

38 

MUV=KMUV(KK# JJ) 




CST 

39 

matcos=mawt*muv*coswt 




CST 

40 

KOP=KOP+l 




CST 

41 

KS=JJ 




CST 

42 

KR=JU 




CST 

43 

KF=1 




CST 

44 

KL=2 




CST 

45 

KV = 3 




CST 

46 

IF (KOP.GT.NOP) GO TO 30 




CST 

47 

SETUP=ACWT*KSETUP(KK»KS) 




CST 

48 

RUNTM=ACWT*KRUN(KK»KR) 




CST 

49 

STOHR=(SETUP+(RUNTM*KT*SHpSET) )*10. 



CST 

50 

DO 20 KC= 1»5 




CST 

51 

REFCT=KCC(KC»KF) 




CST 

52 

IF (REFCT.EQ.O. ) GO TO 20 




CST 

53 

LARATE=KCC(KC»KL> 




CST 

54 

VRATE=KCC(KC#KV) 




CST 

55 

LABHR=LABHR+ ( STDHR/RE.FCT ) 




CST 

56 

lacqst=lacost+ ( labhr*larat£ ) 




CST 

57 

VCOSTrVCOST+ (LARA tE*VRATE ) *LABHR 



CST 

58 

) CONTINUE 




CST 

59 

FCOST=EACOST+VCOST 




CST 

60 
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MFCQSrFCOST+MATCOs 

CST 

61 


TSTOHR=TSTOHK+STDhR 

CST 

62 


TL8hR=TLBHR+LA8HR 

CST 

63 


TLACOS=TLACOS+LACoST 

CST 

64 


TVCOST=TVCOST+VCOsT 

CST 

65 


TFCOST=TFCOST+FCOsT 

CST 

66 


KS=KS+3 

CST 

67 


KR=KK+3 

CST 

68 


KF=KF+3 

CST 

69 


KL=KL+3 

CST 

70 


KV=KV+3 

CST 

71 


KOP=KOP+l 

CST 

72 


LA8Hk=0 

CST 

73 


LACOST=0 

CST 

74 


VCOST=0 

CST 

75 


60 TO 10 

CST 

76 

30 

IF (TLBHR.EQ.O) GO TO 40 

CST 

77 


AVEKAzTLACOS/TLBHR 

CST 

78 


averf=tstdhk/tlbhr 

CST 

79 


TVKATE=TVCOST/TLBhR 

CST 

80 


GO TO 50 

CST 

81 

40 

AVtRArO. 

CST 

82 


AVERFrO. 

CST 

83 


TVRAT£=0. 

CST 

84 

50 

COIMTINUE 

CST 

85 


tmfcos=tfcost+matcos 

CST 

86 


IF IITL.GT.O) GO JO 60 

CST 

87 


TACwTrO 

CST 

88 


WRITE ( 6 * 120 ) 

CST 

89 


WRITE (6* 130 ) 

CST 

90 


WRITE (6*200) 

CST 

91 


WRITE (6*200) 

CST 

92 


IF (KINDP.EQ.1) WRlTt (6*140) LEN.WlQ 

CST 

93 


IF (KlNDP.EGl.2) WRITE (6*lS>0) LEN,wlo 

CST 

94 


IF (KINDP.EQ.3) WRlTt (6*160) LEN.WIO 

CST 

95 


IF (KINDS. EQ.l) WRITE (6*l70) LTUBER 

CST 

96 


IF (KINDS. EQ. 2) WRITE (6*l80) LTUBER 

CST 

97 


IF (KINDS. EQ. 3) WRITE (6*190) LTUBER 

CST 

98 


WRITE (6*200) 

CST 

99 


WRITE (6*210) 

CST 

100 


WRITE (6*220) 

CST 

101 

60 

continue 

CST 

102 


IF (KLIC.EQ.O) WRITE (6»2oO) 

CST 

103 


IF (KLIC.EQ.10) GO TO 70 

CST 

104 


if (klic.gt.o) tacwt=tacwt+acwt 

CST 

105 


IF (KLIC.GT.O) TMAWT=TMAWT+MAWT 

CST 

106 


WRITE (6*230) ANAMl(N) ,ANAM2(N) * ANAM3(N) *KT*0PWT*ACWT*MAWT*TSTDHR 

* CST 

107 


1TLBHR*AVERA,TVRATE*COSWT*TLACOS,TVCOST*TFCOST.MATCOS*TMFCOS 

CST 

108 

C 

summary TOTALS AT BOTTOM OR PAGE 

CST 

109 


TOPWT=TOPWT+OPWT 

CST 

110 


TTSHRrTTSHR+TSTDHR 

CST 

111 


ttlbhr=ttlbhr+tlbhR 

CST 

112 


TTLAC0=TTLAC04TLAc0S 

CST 

113 


ttvcos=ttvcos+tvcost 

CST 

114 


ttfcos=ttfcos+tfcost 

CST 

115 


ttmcos=ttmcos+matcos 

CST 

116 


labhr=o 

CST 

117 


LACOST=0 

CST 

118 


vcost=o 

CST 

119 


TSTDHR=0 

CST 

120 
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TLBHK=0 

CST 

121 


TLACUS=0 

CST 

122 


TVCOST=0 

CST 

123 


TFCObT=0 

CST 

124 


TMFCOS=0 

CST 

125 


return 

CST 

126 

70 

CONTINUE 

CST 

127 


WRITE (6*200) 

CST 

128 


WRITE (6*200) 

CST 

129 


DO 60 1 = 1,7 

CST 

130 


A0P(I,2)=AUP(I,1)/KCC<6,1) 

CST 

131 


AOP( 1 ,3)=KCC (6,2) 

CST 

132 


A OP (I*4)=KCC(6*3) 

CST 

133 


A OP ( I * 5 ) =AOP (I*2)*A0P(I*3) 

CST 

134 


AoP (1*6) =AOP ( I * 3 ) * AOP ( I * 4 ) *A0P (1,2) 

CST 

135 


AOP ( 1,7) = AOP (1,5) +AOP (1*6) 

CST 

136 

80 

continue 

CST 

137 


DO 9U 1=1,7 

CST 

138 


TASYCO=TASYCO+AOP( I , 7) 

CST 

139 

go 

CONTINUE 

CST 

140 


TTMFCO=TTFCOS+TTMcOS 

CST 

141 


tmufac=tasyco+ttmfco 

CST 

142 


TTMFKT=TTMFCO/TACwT 

CST 

143 


CONOP=0 

CST 

144 


IF (TTtBHR.EGi.O) GO TO lOo 

CST 

145 


ttrate=ttfcos/ttlbhr 

CST 

146 


tmrate=ttmfco/ttlrhr 

CST 

147 


ttcos=ttmcos/tmawt 

CST 

148 


tavra=ttlaco/ttlbhr 

CST 

149 


TTVRA=TTVCOS/TTLBhR 

CST 

150 


TAvFC=TTSHR/TTLBHr 

CST 

151 


00 TO 110 

CST 

152 

100 

TTCOS=COSWT 

CST 

153 


TAVRArO 

CST 

154 


TTVRA=0 

CST 

155 


TAVFC=0 

CST 

156 

110 

continue 

CST 

157 


TUNITC=TMUFAC/ILEN*W1D> 

CST 

158 


TUNwr=TACV*T/(LEN*wID) 

CST 

159 


REL= • 4 

CST 

160 


WRITE (6*240) TOPwT 

CST 

161 


WRITE (6*250) TACwT 

CST 

162 


WRITE (6*260) TMAwT 

CST 

163 


WRITE (6*270) TTSHR 

CST 

164 


WRITE (6*260) TTLBHR 

CST 

165 


WRITE (6*290) TTLACO 

CST 

166 


WRITE (6*300) TTVCOS 

CST 

167 


WRITE (6*310) TTFCOS 

CST 

168 


WRITE (6*320) TTMcOS 

CST 

169 


WRITE (6*330) TTMfCO 

CST 

170 


WRITE (6*340) T ASyCO 

CST 

171 


WRITE (6*350) TMUFAC 

CST 

172 


WRITE (6*470) 

CST 

173 


WRITE (6*360) TUNITC 

CST 

174 


WRITE (6*370) TUNwT 

CST 

175 


WRITE (6*480) 

CST 

176 


WRITE (6*380) TTCOS 

CST 

177 


WRITE (6*490) 

CST 

178 


WRITE (6*390) TAVRA 

CST 

179 


WRITE (6*400) TTVRA 

CST 

180 
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write 

(6*500) 

( AOP ( 1 * J) *J=1 

*7) 

CST 

181 

WRITE 

(6*410) 

ttrate 


CST 

182 

write 

(6*510) 

(A0p(2* J) * J=1 

*7) 

CST 

183 

WRITE 

(6*420) 

tmrate 


CST 

184 

write 

(6*520) 

(AOp(3* J) * J=1 

*7) 

CST 

185 

write 

(6*430) 

ttmfrt 


CST 

186 

WRITE 

(6*530) 

(A0p(4* J) » J=1 

*7) 

CST 

187 

write 

(6*440) 

tavfc 


CST 

188 

WRITE 

(6*540) 

( AOp ( 5* J) * J=1 

*7) 

CST 

189 

WRITE 

(6*450) 

REL 


CST 

190 

WRITE 

(6*550) 

( AOp ( 6* J ) * J=1 

*7) 

CST 

191 

WRITE 

(6*460) 

CONOP 


CST 

192 

WRITE 

(6*560) 

( AOP ( 7 * J ) * J=1 

*7) 

CST 

193 

FORMAT 

(1H1) 



CST 

194 


120 

130 FORMAT (3faX#49HTHERMAL PROTECTION SYSTEM* 
140 FORMAT (20X*60 HCOnFI«URATIUN PANEL TYPE 1* 
1NEL SIZE * F4 • 1 * 3H X *F4.1,3H 

150 format ( 2 ox * 6 ohconf i D uration 

1NEL SIZE *F4.1,3H X »F4.1,3H 
160 FORMAT (20X*60HC0nFI6uRATION 
1NEL SIZE *F4.1*3H X *F4.1,3H 
170 FORMAT (20X*65H 

LENGTH * F4 . 1 * 3H 
(20X,65H 
LENGTH * F4 , 1 * 3H 
(20X,65H 
LENGTH *F4,1*3H 
(IX*/) 


SPACE SHUTTLE 
CORRUGATED 

FT) 

PANEL TYPE 2* HONEYCOMB 
FT) 

PANEL TYPE 3* RIBED 
FT) 

STRUCTURE TYPE A 


IN) 

IN) 


IN) 


STRUCTURE TYPE B 
STRUCTURE TYPE C 


1ANDOFF 
180 FORMAT 
1ANDOFF 
190 FORMAT 
1ANDOFF 
200 FORMAT 

210 FORMAT (1X*128H THEORETL ACTUAL MATL 

ID LABOR LABOR OV-HD MATL * LABOR OVERHD FACTORY 

2AL FABRICAT) 

220 FORMAT (1X.126H DESCRIP QT WEIGHT WEIGHT WEIGHT 
IRS HOURS RATE RATE PER LB COST COST COST 

2 COST) 

*30 FORMAT ( IX * 2X . IX * A4 , A 4 , A2 , 1 5* F7 . 3,F9. 3 *F10 . 3 *F10 .4 »F8 .2 * F6.2 *F7.2 » CST 
1F10.2*5F9.2) 


STA XXXX) CST 195 
NOMINAL PACST 196. 

CST 197 
NOMINAL PACST 198 
CST 199 
NOMINAL PACST 200 
CST 201 
NOMINAL STCST 202 
CST 203 
NOMINAL STCST 204 
CST 205 
NOMINAL STCST 206 
CST 207 
CST 208 
STCST 209 
MATERICST 210 
CST 211 
HOUCST 212 
COSTCST 213 
CST 214 
215 


240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 


FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

format 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


( IX * 27HT0T AL 
( IX * 27HTOT AL 
( IX * 27HT0T AL 
(1X.27HTOTAL 
( IX * 27HTOT AL 
( IX * 27HTOTAL 
( IX * 27HT0TAL 
( IX * 27HT0T AL 
( IX * 27HT0T AL 
(IX * 27HT0T AL 
(1X*27HT0TAL 
( IX * 27HT0T AL 
( IX * 27HTPS 
( IX * 27HTPS 


THEORETICAL WEIGHT 
ACTUAL WEIGHT 
MATERIAL WEIGHT 
STANDARD HOURS 
LABOR HOURS 
LABOR COST 
OVER COST 
FACTORY COST 
MATERIAL COST 
FABRICATION COST 
assembly COST 
manufacturing COST 
COST 
WEIGHT 


( IX * 27HAVERAGE 
( IX * 27HAVERAGE 
(IX * 27HAVER AGE 
( IX * 27HAVERAGE 
<1X*27HAVERAGE 
( IX * 27HAVERAGE 
( IX * 27HAVER AGE 
(1X*27HASSEMBLY REALIZATION FACT0RF12 * 2 ) 
<1X*27HC0MP0NENT NON-OPTJMUM F12.2) 

( 1H+ * 87X * 17HSUB— ASSEMBLY COST) 


material 
labor rate 
overhead rate 

FACTORY RATE 
MFG. RATE 
MFG, RATE 

REALIZATION FACTOR 


F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2 

F12.2) 


3H 

LB) 

CST 

217 

3H 

LB) 

CST 

218 

3H 

LB) 

CST 

219 

3H 

HR) 

CST 

220 

3H 

HR) 

CST 

221 

2H 

S) 

CST 

222 

2H 

S) 

CST 

223 

2H 

S) 

CST 

224 

2H 

S) 

CST 

225 

2H 

S) 

CST 

226 

2H 

S) 

CST 

227 

2H 

S) 

CST 

228 

8H 

S/SO FT) 

CST 

229 

9H 

LB/SQ FT) 

CST 

230 

11 H S/LB ) 

CST 

231 

liH S/HR ) 

CST 

232 

11H S/HR ) 

CST 

233 

liH S/HR ) 

CST 

234 

11H S/HR ) 

CST 

235 

11H S/LB ) 

CST 

236 



CST 

237 



CST 

238 



CST 

239 



CST 

240 
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480 FORMAT (1H+*76X»54HSTD 
ISSEmBLY) 

490 FORMAT <1H+»65X»63HTASK 
1 COST COST) 

bOO FORMAT (1H+#62X*1 oHLOCATE 
510 FORMAT ( 1H+ »62X » loHCLAMP 
S20 FORMAT ( 1H+*62 X* IoHDRILL 
b30 FORMAT ( 1H+ # 62X » loHSECURE 
b40 FORMAT < 1H+ * 62 X* IoHINSPECT 
d50 FORMAT <1H+»62X#1oHDISASSY 
S60 FORMAT ( 1H+ » 62X > loHCLEAN 
RETURN 
ENO 


TOTAL LABOR OV-HR LABOR OVERHD ACST 241 

CST 242 

HOURS HOURS RATE RATE COST CST 243 


CST 244 

F10.4»F8.2,F6.2*F7.2,3F9.2) CST 245 

F10t4»F8.2»F6*2»F7.2»3F9.2) CST 246 

F10.4»F8.2»F6.2»F7.2»3F9.2) CST 247 

Fl0.4*F8.2fF6.2fF7.2.3F9.2) CST 248 

F10.4*F8.2#F6.2»F7.2*3F9.2> CST 249 

F10.4*FB.2,F6.2*F7.2*3F9.2> CST 250 

F10.4»F8.2*F6.2>F7.2,3F9.2) CST 251 

CST 252 
CST 253 
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SUBROUTINE COSTOT 

CTT 

1 


COMMON/ COW TOT/ CF , K1 * STPS, AT , K2, 0T* TDH.C* EGTH , NFTA . EFTS * NPA . ETA , CTT 

2 

1EFA , NFLTS * TUNWT 

CTT 

3 


REAL K1 t K2 

CTT 

4 


WTPS=STPS*TUNWT 

CTT 

5 


TENM6=l.E-6 

CTT 

6 


TFU=(CF*K1*WTPS**AT) 

CTT 

7 


EOO=(K2*WTPS**BT) 

CTT 

8 


THLd-306 « *WTPS** ( C ) 

CTT 

9 


TOOL=(TDH*TENM6*THLB*WTPS) 

CTT 

10 


GTH=EGTH*TFU 

CTT 

11 


FTA=NFTA*TFU 

CTT 

12 


FTSRP=EFTS*TFU 

CTT 

13 


rNTPSC=EDC+TOOL+GTH+FjA+FTSRP 

CTT 

14 


PA=NPA*TFU 

CTT 

15 


TAC=LTA*TFU 

CTT 

16 


TRPC=PA+TAC 

CTT 

17 


rsrp=efa*nflts*tfu 

CTT 

18 


TROC=RSRP 

CTT 

19 


ttpsc=tntpsc+trpc+troc 

CTT 

20 


WRITE (6*10) 

CTT 

21 


WRITE (6*20) 

CTT 

22 


WRITE (6*30) 

CTT 

23 


WRITE (6*40) TFU 

CTT 

24 


WRITE (6*50) 

CTT 

25 


WRITE (6*60) EDO 

CTT 

26 


WRITE (6*70) TOOL 

CTT 

27 


WRITE (6*80) GTH 

CTT 

28 


WRITE (6*90) FTA 

CTT 

29 


WRITE (6*100) FTSRP 

CTT 

30 


WRITE (6*110) 

CTT 

31 


WRITE (6*120) TNTPSC 

CTT 

32 


WRITE (6*130) 

CTT 

33 


WRITE (6*140) 

CTT 

34 


WRITE (6*150) 

CTT 

35 


WRITE (6*160) PA 

CTT 

36 


WRITE (6*170) TAC 

CTT 

37 


WRITE (6*110) 

CTT 

38 


WRITE (6*160) TRPC 

CTT 

39 


WRITE (6*190) 

CTT 

40 


WRITE (6*200) RSRP 

CTT 

41 


WRITE (6*110) 

CTT 

42 


WRITE (6*210) TROC 

CTT 

43 


WRITE (6*220) TTPSC 

CTT 

44 

10 

FORMAT ( 1H1 ) 

CTT 

45 

20 

FORMAT (10X.44H THERMAL PROTECTION SYSTEM - 

COST SUMMARY//) CTT 

46 

30 

FORMAT ( 52X * 8HC0ST ( M$) // ) 

CTT 

47 

40 

FORMAT ( 10X*34HTHE0RETICAL FIRST UNIT COSTS - 

TFU*F8,3»//> CTT 

48 

50 

FORMAT ( 10X * 18HN0N RECURRING COST./) 

CTT 

49 

60 

FORMAT (10X.42HED AND D 

*F8.3) CTT 

50 

70 

FORMAT (10X.42HTOOL.ING 

*F8 . 3) CTT 

51 

80 

FORMAT (10X.42HGROUND TEST HARDWARE 

»F8.3> CTT 

52 

90 

FORMAT (10X.42HFLIGHT TEST ARTICLES 

*F8 « 3) CTT 

53 

100 

FORMAT (10X.42HFLIGHT TEST S AND RP 

»F8.3> CTT 

54 

110 

FORMAT (52X.8H 

CTT 

55 

120 

FORMAT (10X*42HTOtAL NONRECURRING TPS COST 

*F8.3//) CTT 

56 

130 

FORMAT (10X.28HRECURRING PRODUCTION COST */) 

CTT 

57 

140 

FORMAT (10X.51HSUSTAINING ENGINEERING 

INCLUDED IN TFU CTT 

58 

1) 

CTT 

59 

150 

FORMAT (10X.51HSUSTAINING TOOLING 

INCLUDED IN TFU CTT 

60 
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1) CTT 61 

160 FORMAT ( 10X»42HPRODUCTION ARTICLES (D »F8.3) CTT 62 

170 FORMAT (10X,42HTEST ARTICLE CONVERSION »F8.3) CTT 63 

160 FORMAT ( 10X» 42HT0TAL RECURRING PRODUCTION COST »F8,3//) CTT 64 

190 FORMAT ( 10X » 25HRECURRING OPERATIONS COST*/) CTT 65 

200 FORMAT ( 10X » 42HREpLENISHM£NT S AND RP »F8.3) CTT 66 

210 FORMAT ( 10X#42HTOtAL RECURRING OPERATIONS COST »F8,3///)CTT 67 

220 FORMAT ( 10X » 42HT0tAL THERMAL PROTECTION SYS PROGRAM C0STS»F8.3> CTT 68 

RETURN CTT 69 

END CTT 70- 


Figure 1-9. Source Listing — COSTOT 


1-20 



FUNCTION CURVEF(F.FSTAR) 

this function is used to compute obspl 

ITEK=0 

SUMUEL=0. 

IF (FSTAR.GT.F) go to 30 

FUNDAMENTAL FREOUENCy IS LESS THAN F 

DEL0bP=4. 

FU=F 

10 FL=,b*FU 

if (fl.le.fstarj go ro 20 

SUMD£L=SUMOEL+UELDBP 

fu=fl 

ITER=ITER+1 

IF (ITER. GT. 100) GO TO 70 
GO TO 10 

20 UELUb=(FSTAR-FL)/<FU-FL)*DtLDBP+SUMDEL 
GO TO 60 

fundamental frequency IS greater THAN F 

30 0ELDBP=3.5 

fl=f 

40 FU=2.*FL 

if (fu.ge.fstar) go ro 50 
SUMDEL=SUMDEL+UELDBP 

fl=fu 

iter=iter+i 

IF (1TER.GT.10U) GO TO 70 
GO TO 40 

50 DELOB= ( FST AR-FL ) / ( FU-FL ) *DELOBP+SUMDEL 
60 CURv£F=DELDB 
RETURN 

70 WRITE ( 6 r 80 ) F t FStAR 

80 FORMAT (30H0ERROR IN OBSPL COMPUTATION F=E12 . 4 , 3X » 6HFST AR=E12 . 4 ) 
CURVEF = -1. 

RETURN 

END 


CRV 1 
CRV 2 
CRV 3 
CRV 4 
CRV 5 
CRV 6 
CRV 7 
CRV 8 
CRV 9 
CRV 10 
CRV 11 
CRV 12 
CRV 13 
CRV 14 
CRV 15 
CRV 16 
CRV 17 
CRV 18 
CRV 19 
CRV 20 
CRV 21 
CRV 22 
CRV 23 
CRV 24 
CRV 25 
CRV 26 
CRV 27 
CRV 28 
CRV 29 
CRV 30 
CRV 31 
CRV 32 
CRV 33 
CRV 34 
CRV 35- 
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SUBROUTINE ORVTPS ( T1 *T2. T3*TS ,TC> 
COMMON/WTA/ 


1A 

.8 

.CHORD 

.E1RIB 

.E2RIB 

.E3RIB 


DRV 

3 

2HBEAMA 

* HFNG1 

.HFNG2 

#HRIB 

.HRING 

.IDFNG1 


DRV 

4 

3IDFNG2 

*KINDP 

.KINDS 

.LENGTH 

.DLPANL 

.LTUBE 

9 

DRV 

5 

4NRIBS 

* ODPOSR 

» ODPOST 

.ODRING 

.RADIUS 

.tbmla 

9 

DRV 

6 

5TBMLC 

» T8MSA 

.tbmsc 

.TCORE 

.TCORN 

.TOOUBC 

9 

DRV 

7 

6TD0UBP 

* TEDGE 

.tfngi 

* TlNSl 

.TINS2 

» TINS3 

9 

DRV 

8 

7TPLMTE 

*TPOST 

* T1RIB 

. T2RIB 

. TWRIB 

.TRIBL 

9 

DRV 

9 

8TRIBS 

*TRING1 

.TRING2 

.tseal 

.TSKIN1 

.TSKIN2 

9 

DRV 

10 

9TTUBE 

* WIDTH 

.wbeama 

* WBMLC 

tWBMSC 

.dwpanl 

9 

DRV 

11 

SwPOST 

» WRIdL 

.WRIBS 

.PBM 

.PCORE 

.PEDGE 

9 

DRV 

12 

SPINS1 

*PINS2 

. PINS3 

. PPOST 

.PRIB 

.PSEAL 

9 

DRV 

13 

spskini 

*PSKIN2 

.PTUBE 

. GBOLT 

.gclamp 

.GINSRT 

9 

DRV 

14 

SGINSUL 

*GNUTPL 

.GWASH 





DRV 

15 

COMMON/WTCOST/ 






DRV 

16 

1KLIC 

» N 

. ACWT 

.KT 

. ITL .LEN. 

WID. LTUBER 

DRV 

17 

2 * MAw r . kk 

* AOP (7*7) , 

KMUV ( 1 0 0 * 3 ) 

.KSETUP(100 

.21) .KRUN (100.21) 


DRV 

18 


3»KCC(5»21) . TIME (7) . TMAT ( 3 ) » DI AMA ( 6) , wTNUT (6) »TBTABL(6) 
4.KCOSWT(10Q.3) 

C0MM0N/2ER0/ 

1 TOPWT,TACWT»TMAWT»TTSHR»TTLBHR#TTLACO»TTVCOS,TTFCOS»TTMCOS» 
2TASTC0.LA6HR. LACOST , VCOST . TSTDHR . TLACOS , TVCOST . TFCOST 

COMMON/COMTOT/ CF,K1.STPS,AT»K2.BT.T0H.C.EGTH.NFTA»EFTS.NPA.ETA. 
1EFA.NFLTS.TUNWT 
COMMON/ ALPHAN/ 

lANAtol (22 ) »ANAM2(22) »ANAM3(22) 

DIMENSION I A ( 75 ) . IB ( 17 ) 

EQUIVALENCE (IA.A) 

EQUIVALENCE (Ib.TOPWT) 

REAL IOFNG1 . IDFNG2» Kl» K2. LENGTH . LTUBE 
*** INITIALIZE INPUT VARIABLES 


DRV 19 
DRV 20 
DRV 21 
DRV 22 
DRV 23 
DRV 24 
DRV 25 


DRV 34 


DO 10 1 = 1 . 75 
I A ( I ) =0 
10 CONTINUE 

DO 20 1=1*17 
18 ( 1) =0 
20 CONTINUE 
CF=3 • 3 
Kl=. 00171 
STPS=22000. 
AT=.667 
K2=6.58 
BT=.lfl7 
TDH=14.13 

EGTH=2»45 

NFTA=2 

EFTS=.67 

NPA=1 

ET A=0 ,3 

EFA=0,003 

NFLTS=444 

TINS1=T1*12.0 

TINS2=T2*12.0 

TINS3=T3*12.0 

TSKINl=TS 

TSKIN2=TC 


DRV 35 
DRV 36 
DRV 37 
DRV 38 
DRV 39 
DRV 40 
DRV 41 
DRV 42 
DRV 43 
DRV 44 
DRV 45 
DRV 46 
DRV 47 
DRV 48 
DRV 49 
DRV 50 
DRV 51 
DRV 52 
DRV 53 
DRV 54 
DRV 55 
DRV 56 
DRV 57 
DRV 58 
DRV 59 
DRV 60 
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WRITE (6*130) 


DRV 

61 

c 



DRV 

62 

c 

*** KEAu WEIGHT-COST INPUT 

DRV 

63 

c 



DRV 

64 


REAu ( 5 * 140 ) 

KINDP * K I NOS * LENGTH , W IDTH * OLPANl * DWPANL * A * B 

DRV 

65 


READ (5,150) 

PINS1*PINS2*PINS3 

DRV 

66 


WRITE (6*160) 

KINDP* LENGTH* WIDTH * OLPANL, DWPANL* A, B»KINDS,TINS1»TINDRV 

67 


1S2*T1NS3*PINS1,PINS2*PINS3 

DRV 

68 


IF (KINDP. GT. 

0. AND.KINOP.LT. A) GO TO 30 

DRV 

69 


WRITE (6*170) 


DRV 

70 


STOP 


DRV 

71 


30 GO TO (40,50, 

60), KINDP 

DRV 

72 

c 



DRV 

73 

c 

*** KINDP = 1 


DRV 

74 

c 



DRV 

75 


40 READ (5,180) 

NRIBs*CHORD*RADiUS,PSKIfMl*PSKlN2 

DRV 

76 


WRITE (6*190) 

NRIBS, CHORD, RADIUS *TSKIN1,TSKIN2*PSKIN1*PSKIN2 

DRV 

77 


GO TO 70 


DRV 

78 

c 



DRV 

79 

c 

*** KINUP = 2 


DRV 

80 

c 



DRV 

81 


50 READ (5,150) 

GINSRT,TC0RE,TEDGE,PC0RE,PEDGE,PSKIN1*PSKIN2 

DRV 

82 


WRITE (6,200) 

GINsRT,TC0RE*TEDGE*TSKINl,TSKIN2*PC0RE*PEDGE*PSKINl 

, DRV 

83 


1PSKIN2 


DRV 

84 


GO TO 70 


DRV 

85 

c 



DRV 

86 

c 

*** KINDP = 3 


DRV 

87 

c 



DRV 

88 


60 READ (5,160) 

NRIBs*HRIB*TEOGE*PRIB*PEDGE*PSKIN1 

DRV 

89 


READ (5,150) 

E1RIB*E2RIB*£3RIB*T1RIB,T2RIB*TWRIB 

DRV 

90 


WRITE (6*210) 

NRIbS* HRIB*TEDGE*TSKIN1,PRIB*PEDGE*PSKIN1,E1RIB,E2RIDRV 

91 


IB » E3RIB , TlRIB 

*T2RIB,TWRIB 

DRV 

92 


70 IF (KINDS. GT. 

0. AND.KINDS.LT. 4) GO TO 80 

DRV 

93 


WRITE (6*220) 


DRV 

94 


STOP 


DRV 

95 


80 GO TO (90,100 

*110), KINDS 

DRV 

96 

c 



DRV 

97 

c 

*** KINDS = 1 


DRV 

98 

c 



DRV 

99 


90 READ (5,150) 

GBOLT * GNUTPL , GWASH , TCORN * TPOST * PPOST , ODPOST , TPL ATE 

DRV 

100 


READ (5,150) 

TFNGl , TTUBE » PTUBE* LTUBE , TSEAL * PSEAL * TDOUBC * TD0U8P 

DRV 

101 


REAO (5,150) 

TBMLA * TBMSA , HBEAMA , WBEAMA , PBM 

DRV 

102 


WRITE (6*230) 

GBOLT * GNUTPL * GWASH * TCORN , TPOST * PPOST * ODPOST * TPLATE , 

tdrv 

103 


1FNG1 , TTUBE * PTUBE , LTUBE * TSE a L * PSEAL * TDOUBC * TD0U8P * T8ML A , TBMSA , HBEAMDRV 

104 


2A , W8EAMA * PBM 


DRV 

105 


GO TO 120 


DRV 

106 

c 



DRV 

107 

c 

*** KINDS = 2 


DRV 

108 

c 



DRV 

109 


100 READ (5,150) 

GBOLT * GNUTPL , GWASH * GINSUL * TPOST , PPOST , WPOST 

DRV 

110 


WRITE (6*240) 

GBOLT * GNUTPL * GWASH * GI NSUL , TPOST , PPOST , WPOST 

DRV 

111 


GO TO 120 


DRV 

112 

c 



DRV 

113 

c 

*** KINDS = 3 


DRV 

114 

c 



DRV 

115 


110 READ (5*150) 

GBOLT » GNUTPL , GWASH , GCLAMP * TPOST , PPOST * ODPOST * ODPOSR , 

ODRV 

116 


10RING *HR ING* TFNG1 * TTUBE * PTUBE * IQFNG1 * IDFNG2 * HFNGi ,HFNG2 *TRING1 ,TRIDRV 

117 


2NG2 


DRV 

118 


READ (5*150) 

TBMLC * TBMSC * W«MLC » WBMSC , PBM * TRIBL * TRIBS , WRIBL * WRIBS 

DRV 

119 


WRITE (6*250) 

GBOLT * GNUTPL * GWASH * GCLAMP , TPOST , PPOST * ODPOST * ODR ING 

,DRV 

120 
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1HR I NO * TR ING1 , TRING2 * HFNG1 ,HFNG2 » ODPOST * TFNGl , TTU8E* PTUBE * IDFNG1 , IDDRV 
2FNG2*TRI8L.TRIBS*TBMLC.TBMSC*WBMLC*WBMSC.PBM.WRIBL*WRIBS DRV 


WRITE (6*260) 
CALL wTTPS 
CALL COSTOT 
RETURN 


120 WRITE <6*2b0) DRV 

DRV 
DRV 
DRV 
DRV 

130 FORMAT ( 1H1 > DRV 

140 FORMAT <2I4,6E8.0)' DRV 

150 FORMAT (10E8.0) DRV 

160 FORMAT (46H1***** WEIGHT-COST INPUT *****//10X*5HKDRV 

1 INDP# 9X * 6HLENGTH, i OX * 5HWIDTH* 9X , 6HDLPANL* 9X , 6HDWPANL * 14X, 1HA , 14X* 1DRV 
2HB/Il5*6F15.3//10x*5HKINDS*10X*5HTINSl*10X*5HTINS2*10X,5HTINS3*10XDRV 
3*5HPINS1*10X*5HPINS2*10X*5HPINS3/I15,6F15,3) DRV 

170 FORMAT (65H0***** KIND OF PANEL FLAG, KINOP, WAS NOT PROPERLY ENTEDRV 
1REL), **♦**) DRV 

180 FORMAT ( 18 * 9E8. 0 ) DRV 

190 FORMAT (//10X»5HNRl8S,10X,bHCHORD,9X,6HRADlUS,9X*6HTSKINl»9X*6HTSKDRV 
II N2 , 9X * 6HPSK INI , 9x * 6HPSK lN<V 1 1 5 , 6F1 5 . 3 ) DRV 

^00 FORMAT (//9X,6HGlNSR T , 10X , 5HTC0RE , 1 OX * 5HTEDGE , 9X . 6HTSK INI . 9X » 6HTSKDRV 
HN2,10X,5HPCORE,10X*bHPEDGt-,9X*6HPSKlNl,9X*6HPSKIN2/9Fl5.3) DRV 

*10 FORMAT (//10A,bHNRlBS, 11X,4HHRIB*10X,5HTEDGE*9X*6HTSKIN1,11X*4HPRIDRV 
lb » lux , 5HPEUGE , 9X * 6HPSK INI/I 15 , 6E15* 3//10X * 5HE1RIB * 10X * 5HE2RIB * 10X * DRV 
25HE3RIB, 10X,5HT1RIB* 10X,5HT2RIB, 10X*5HTWRIB/bF15.3) DRV 

220 FORMAT (b9H0***** KIND OF STRUCTURE FLAG* KINDS. WAS NOT PROPERLY DRV 
1ENTERED, ***♦*) DRV 

230 FORMAT (//10X,5HGbOLT >9X * 6 H 6NUTPL , 1 OX * 5H6WASH , 10X * 5HTC0RN* 10X , 5HTPDRV 
10ST,10X,5hPPOST,9x. 6HODPOST/7F15,3//9X.6HTPLATE*10X,5HTFNG1*10X.5HDRV 
2TTUbE,10X,5HPTUBE,10X,5HLTUBE,l0X,5HTSEAL*l0X,5HPSEAL/7Fl5.3//9X*6DRV 
3HTD0UBC , 9X » 6HTD0UBP * 1 OX , 5HT8MLA , 10X , 5HTBMSA , 9X . 6HHBEAMA . 9X * 6HWBEAMDRV 
4A,12X,3HP6M/7F15.3> DRV 

240 FORMAT ( //I OX , 5 HGB 0 LT , 9X . 6 H GNuTPL , 10X * 5HGWASH , 9X , 6HGINSUL * 10X , 5HTPDRV 
10ST. 10X,5HPPOSr. 10 X. bHWP0sT/7Fl5.3) DRV 

250 FORMAT ( //10X, SHGbOL T , 9X »6 H GNUTPL , 10X * 5HGWASH, 9X*6HGCLAMP, 10X * 5HTPORV 
10ST.10X,bHPPOST.9x*6HOOPOsT/7F15.3//9X,6HODRING*10X*5HHRING.9X*6HTDRV 
2RING1 , 9X * 6HTRING2, 10X , 5HHFNG1 , 1 OX , 5HHFNG2 * 9X * 6HODPOSR/7F15. 3//10X *DRV 
35HTFNGi*10X,5HTTUBE* 10 Xf5HPTUBE.9X»6hIDFNG1,9X,6HIDFNG2.10X,5HTRIBDRV 
4L, lOX,5HTRIBS/7Fl5.3//10X,bHTBMLC,10X*5HTBMSC,10X*5HWBMLC»10X,5HWBDRV 
5MSC . 12X , 3HPBM, 10X , 5HWR IBL , 10X , 5HWRIBS/7F15. 3) DRV 

^60 FORMAT (36H0***** END OF INpUT ****♦) DRV 

END DRV 
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SUBROUTINE FATIG(NSECT»TC,TS) 

FTG 

1 

c 



FTG 

2 

c 

A C 0 U S T I 

c fatigue analysis 

FTG 

3 

c 



FTG 

4 

c 



FTG 

5 

c 

DESCRIPTION OF : 

INPUT PARAMETERS 

FTG 

6 

c 



FTG 

7 

c 

AE 

nozzle EXIT AREA 

FTG 

8 

c 

A I 

MOMENT OF INERTIA 

FTG 

9 

c 

AW 

panel length 

FTG 

10 

c 

AMACH 

LOCAL MACH NUMBER 

FTG 

11 

c 

BW 

panel width 

FTG 

12 

c 

C 

COEFFICIENTS OF A LEAST SQUARES » 3RD ORDER 

FTG 

13 

c 


CURVE FIT OF ALLOWABLE S-N DATA 

FTG 

14 

c 

D 

NOZZLE DIAMETER 

FTG 

15 

c 

DT 

OURATION OF NOISE IN SECONDS 

FTG 

16 

c 

DVEH 

VEHICLE DIAMETER 

FTG 

17 

c 

EP 

panels youngs modulus 

FTG 

18 

c 

HPAN 

THICKNESS 

FTG 

19 

c 

HC 

THICKNESS IN HONEyCOMB PANEL (MIDDLE) 

FTG 

20 

c 

HF 

THICKNESS IN HONEYCOMB PANEL (OUTSIDE) 

FTG 

21 

c 

IPAD=0 

vehicle is in flight 

FTG 

22 

c 

IPAD=1 

vehicle is in the PAD 

FTG 

23 

c 

KFLEX=o 

RIGID AND SYMMETRICAL SUPPORTING STRUCTURE 

FTG 

24 

c 

KFLEX=1 

FLEXIBLE AND/OR UNSYMMETRICAL SUPPORTING 

FTG 

25 

c 


STRUCTURE 

FTG 

26 

c 

NEN 0 

NUMBER OF ENGINES 

FTG 

27 

c 

NPAN = 

1 RECTANGULAR ISOTROPIC PLATE 

FTG 

28 

c 

NPAN si 

2 RECTANGULAR HONEYCOMB SANDWICH PANEL 

FTG 

29 

c 

NPAN r 

3 INTEGRALLY STIFFENED PANEL 

FTG 

30 

c 

QL 

LOCAL DYNAMIC PRESSURE 

FTG 

31 

c 

HEY 

REYNOLDS NUMBER 

FTG 

32 

c 

RHO 

MATERIAL DENSITY 

FTG 

33 

c 

TJ 

Ut-T THRUST 

FTG 

34 

c 

TT 

TOTAL THRUST IN LB 

FTG 

35 

c 

VJ 

JET VELOCITY 

FTG 

36 

c 

VS 

LOCAL SPEED OF SOUND 

FTG 

37 

c 

vu 

LOCAL Vt LOCITY 

FTG 

38 

c 

vv 

VEHICLE VELOCITY 

FTG 

39 

c 

WEJ 

WEIGHT FLOW OF JET ENGINE 

FTG 

40 

c 

WER 

WEIGHT Flow of rocket engine 

FTG 

41 

c 

VU 

LOCAL VELOCITY 

FTG 

42 

c 

XI 

DISTANCE BETWEEN BOOSTER ENGINE AND POINT OF 

FTG 

43 

c 


interest 

FTG 

44 

c 

XJ 

DISTANCE TO EXIT PLANE OF JET ENGINE 

FTG 

45 

c 

XL 

boundary layer LENGTH 

FTG 

46 

c 

YP 

Y DISTANCE IN A NEAR FIELD LESS THAN 200 FT. 

FTG 

47 


common /blockt/ 


FTG 

48 


1 TBBA ( 6 ) » TBKl(6)» TB*2(6) 

FTG 

49 


COMMON/SONIC1/ Ae 

,AI t AW , AMACH rBW »C(4) . 

FTG 

50 


ID t DT ( 4 ) ,DvEH f EP » HPAN ,HC rHF »IPAD , 

FTG 

51 


2KFLEX r NENG »NpAN »QL t REY ,RHOP .TJ *TT » 

FTG 

52 


3VJ »VS »Vu 

»W #WEJ » WER f IPF ( 4 ) 'XX » 

FTG 

53 


4XJ t XL f YP 

t IpFl » A IY *DREF ,YCL 

FTG 

54 


common/appi/noapp 


FTG 

55 


DIMENSION ANL ( 4 ) » ANRMS ( 4 ) ,ANML(4> »SCR(4> r PF(4) »CY(4) rSLD(4> r 

FTG 

56 


1 ANCR ( 4 ) 


FTG 

57 

c 



FTG 

58 


DATA AMU/. 3/ 


FTG 

59 


DATA CCC/.02/ 


FTG 

60 
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c> r 


DATA CG/32.174/ 


FTG 

61 

DATA NDIM/6/ 


FTG 

62 

OATA Pl/3. 14159/ 


FTG 

63 

DATA TBBA / 


FTG 

64 

1 1.# 1.5# 2.0# 2.5# 3.0 1 

.E30/ 

FTG 

65 

DATA TBK1 / 


FTG 

66 

1 27.89# 20.63# 18.45# 17.61# 17.08# 

16.12/ 

FTG 

67 

OATA TBK2 / 


FTG 

68 

1 19.74, 14.26# 12.34# H.45# 10.97» 

9.87/ 

FTG 

69 



FTG 

70 



FTG 

71 

10 WRITE ( 6 # 350 ) 


FTG 

72 



FTG 

73 

COMPUTE FUNDAMENTAL FREQUENCIES 

FTG 

74 

IF ( NSEC T , EQ . 1 . OR , NSECT , EQ . 2 . OR , NSECT . 

EQ.3.0R.NSECT.EQ.4) NPAN=3 

FTG 

75 

IF (NSECT. EQ. 5. OR. NSECT. EQ. 6) NPAN=4 


FTG 

76 

HPAn=TS 


FTG 

77 

IF (TS.EQ.O.) hpan=tc 


FTG 

78 

HPAn2=HPAN*HPAN 


FTG 

79 

HPAn3=HPAN2*HPAN 


FTG 

80 

IF (AW.LE.BW) GO TO 20 


FTG 

81 

TEMl^AW 


FTG 

82 

AW=BW 


FTG 

83 

BW=TEM1 


FTG 

84 

20 AL2=AW*AW 


FTG 

85 

AL4=AL2*AL2 


FTG 

86 

amass=rhop*hpan/cg 


FTG 

87 

BA=Bw/AW 


FTG 

88 



FTG 

89 

FSTAR=1. 


FTG 

90 

IF (KFLEX.NE. 0 ) FsTAK=.25 


FTG 

91 

GO TO ( 30 # 40 # 60 # 70 ) # NPAN 


FTG 

92 

rectangular isotropic plate 


FTG 

93 

30 DR=EP*HPAN**3/(12.*<1.-AMu**2) ) 


FTG 

94 

AK=T ABLE ( BA , TBBA # TBKl #NDIM) 


FTG 

95 

IF (AK.EQ.O) GO TO 340 


FTG 

96 

GO TO 50 


FTG 

97 

rectangular honeycomb sandwich PANEL 

FTG 

98 

40 HF=.b*(HPAN-HC) 


FTG 

99 

UR=EP*HPAN*HF*HC/1.82 


FTG 

100 

AK=TABLE(BA#TBBA#TBK2#NDIM) 


FTG 

101 

IF (AK.EQ.O) GO TO 340 


FTG 

102 

50 FREQ=AK/(2.*PI*AL2*SQRT(AMASS/DR) )*FSTAR 

FTG 

103 

GO TO 80 


FTG 

104 

INTEGRALLY STIFFENED PANEL 


FTG 

105 

60 DR=EP*HPAN3/(12,*(1.-AMU**2 ) ) 


FTG 

106 

UX=DK+EP*AI/ (Bw*l2. ) 


FTG 

107 

DY=L)K 


FTG 

108 

AKMzPI/AW 


FTG 

109 

AKN=PI/BW 


FTG 

110 

AKM2=AKM*AKM 


FTG 

111 

AKN2=AKN*AKN 


FTG 

112 

AKTAU=(SQRT(DX/12. )*AKM2+S9RT(DY/12, )*AKN2)**2 

FTG 

113 

AKI=(DX/12. )*(AKM2+AKN2)**2 


FTG 

114 

SRT=AKTAU/AKI 


FTG 

115 

HEQ=HPAN*SRT**(l./3. 1 


FTG 

116 

0MEGA=SQRT(AKTAU*l2. /AMASS) 


FTG 

117 

FREQ=OMEGA/ ( 2.*PI ) +FSTAR 


FTG 

118 

GO TO 80 


FTG 

119 

corrugated panel 

* 

FTG 

120 
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no o o on r. or, non 


70 AIX=AI 

UY=EP*AIX/(Aw*12.) 

Ux=EP*AIY/(Bw*12. ) 

AKM=PI/AW 

AKN=PI/BW 

AKM2=AKM*AKM 

AKN2=AKN*AKN 

AKTAU=(SQRT(DX)*AkM2+SQRT(UY)*AKN2)**2 
OMEGAzSQRT (AKTAU/AMASS) 

FREG=OMEGA/ ( 2 . *PI ) +FSTAR 
80 CONTINUE 

WRITE (6*400) FREQ 

NOISE COMPUTATIONS 


UO 200 I=1*IPFI 
IPFF=IPF< I ) 

GO TO (90»100»140»190) * IPFF 

1. boundary layer 

90 SIGMAX=. 37*REY**(-.2)* ( l.+(RtY/2.9E7)**2)**.l 
FZER0=8.*VU/SIGMAx/XL 

PF IS SPECTRUM PRESSURE 

PF( 1 )=QL*SQRT( ,0l2/< <1. + .14*AMACH**2)*F2ER0*(1. + (FREG/F2ER0)**2) 
11.5) ) 

FPLF=20.*AL0G10(PF/41.8E-8> 

WRITE (6*410) fplf*Rey*amach*ql,vu 
GO TO 200 

2. ROCKET ENGINE NOISE (BOOSTE AND OR0ITER) 
VEXH=TT*CG/WER 
FDV=FREO*D/VEXH 
IF (FDV.LE..175) GO TO 110 
RTERM=-. 222-1, 315*ALOG10<FUV) 

GO TO 120 

RTERM=.625-.202*AlOG10(FDv) 

X2ER0=D* 1 0 . **RTERM 
R=XI+XZERO 

IF (IPAD.EQ.0) GO TO 130 

IF (XZERO.GT. (DREF+YCL) ) R=SURT( (Xl+DREF)**2+(XZERO-DREF-YCL)**2 
IF (XZERO.GT.DREF. AND. XZERO.LE. (DREF+YCL) > R=SGRT ( (XI+DREF) **2+ ( 
1L-XZERO+DREF ) **2 ) 

IF (XZERO.LE.DREF) R=SQRT( ( XI+XZERO) **2+YCL**2) 

COMPUTE SPL SOUND PRESSURE LEVEL 
130 IF (FDV.LE. .016) SPt-=70. + l6.6*ALOG10 (FDV/.003) 

IF (FDV.LT..152.AND.FDV.GT..016) SPL=82. 

IF (FDV.GE. • 152) SPI-=70.-l6.b*ALOG10 (FDV/.S) 

CAPID=VS/(PI*DVEH) 

DELBP=0, 

IF (FREQ.GE.CAPID) DELBP=6*0 

OBSPL IS OCTAVE BAND SOUND PRESSURE LEVEL 
OBSPL=10 . +ALOG10 ( . 676*TT**2*CG/WER ) +SPL-20 . +ALOG10 (R ) +DELBP 
BWD1=BANDW(FREQ) 

SPLF=OBSPL-10 ,+ALOGlO (BWOl ) 

WRITE (6*420) SPLF*XZERO 
PF ( I ) =41 . 8E-8+10 . ** ( SPLF/20 . ) 

GO TO 200 


FTG 121 


100 


110 

120 


140 VR=ABS(VV-VJ) 


3. JEt FLYBACK ENGINE NOISE ON VEHIO^E,** 


FTG 
FTG 
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FTG 
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FTG 
FTG 
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o nor'. o c, o o 


DJ=SGRT(4.*AE/PI> 

KHOF=wEJ/(AE*VJ) 

FVRLG=145,+100.*AlOG10(VR/1600. ) 

C SPL200 IS OVERALL SOUND PRESSURE LEVEL FOR Y=200FT. 

SPL200=FVRLG+10.*ALOG10(RHOF**2*AE) 

SPLNF IS SOUND PRESSURE LEVEL AT YP DISTANCE 
NONDIMESIONALIZE distances 

Y20UUJ=200./DJ 
Y3uuJ=30./DJ 
Y25DJ=2.5/0J 
YPDJ=YP/DJ 

TERM 1=20 «*ALOGlO ( Y200DJ/Y3UDJ) 

TERM2=16.*ALOG10(Y30DJ/Y25UJ) 

IF ( YPDJ.GT.200. ) GO TO I 70 
IF (Ypnj.LT. 30. ) GO TO 150 
DELDb=20.*ALOGl0(Y'20ODJ/YPUj) 

GO TO 180 

150 IF ( YPDJ.LT.2.5) GO TO 160 

DELDb=TERMl+16.*ALOGlO< Y30UJ/YPDJ) 

GO TO 160 

160 IF (YPDJ.LT.1.) GO TO 170 

UELDb=TERMl+TEKM2+14.*ALOG10(Y25Dj/YPDJ> 

GO TO 180 

170 wRlTt ( 6 • 360 ) YP 
GO TO 340 

i80 SPLNF=SPL200+DELDB+6. 

FREQP=.8*VJ/DJ 
bWO=BANDW (FREQ) 

OBMAX=SPLNF-S. 

C VF=CURVEF ( FREQP » FREQ ) 

IF (CVF.EQ.-1) GO TO 340 
OBSPl.=OPMAX-CVF 
SPLF=0BSPL-1U.*AL0G1G(BWD) 

WRITE ( 6 » 370 ) SPLF 
PF( I )=41.8£-«*10.**(SPLF/20. ) 

GO TO 200 

4. JET SCRUBBING ON BODY 
PE IS PRESSURE AT NOZZLE EXIT 
190 PE=TJ*1.275/DJ**2 

DX IS JET DIAMETER At X FEET 
DX=DJ*(1.+.244*XJ/0J) 

PX IS SCRUBBING PRESSURE 
PX=.155*TJ/DX**2 
SPLX=20.*ALOG10(Px/41.8E-8> 

FREQP=.4*VJ/DJ 
bWD=0ANDW (FREQ) 

OBMAX=SPLX-5. 

CVF=CURVEF(FREQP»FREQ) 

IF (CVF.EQ.-1) GO TO 340 
OBSPL=OBMAX-CVF 
SPLF=OBSPL-10.*ALOG10(BWD) 

WRITE ( 6 » 430 ) SPLF 
PF( I)=41.8E-8*10.**(SpLF/20.) 

*00 CONTINUE 


DYNAMIC STRESSES 
tSWD=.04*FREQ 
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n n 


mo 


^20 


*:30 


<i40 


250 


260 

270 

280 

290 

300 


SUMl^O. 

SUM2=0. 

SBW0=SQRT (BWD) 

00 320 1=1 * IPFI 
PBAR=PF( I )*SBWD 
Cy<I)=0. 

SCR(i)=0. 

SC0N=,5 

IF (KFLEX.NE.O.) sC0N=.75 
DCOn=4.0B9 

IF (KFLEX.NE.O.) OCON=20.4^5 
60 TO (210.220.230*240) * NPAN 

SMAX I 5 MAXIMUM BENDING STRESS 
YMAX Is MAXIMUM DEFLECTION 
SMAX=SC0N*AL2 *PBAr/HPAN 2 
YMAX=0C0N*P6AR*AL4/ (tP*HPAN**3) 

SLO( I )=1Q0.*SMAX 
GO TO 250 

HEFF = 1.8l7*(HC*HF*HPAN)**(l./3. > 
SMAx=SC0N*PBAR/H£FF**2*AL2 
YMAx=DC0N*PBAR*AL4/ (EP*HEfF**3> 

SLU( 1 )=100.*SMAX 
60 TO 250 

SMAX=SC0N*PBAR*AL2/HEQ**2 

YMAX=DC0N*PBAR*AL4/(EP*HEQ**3) 

SD=2S.*SMAX 
SLL)(1)=4.*SD 
60 TO 250 

HEFF=(10.9*( (SORT( AIY/jW) /AW**2+SQRT ( AIX/A W)/BW**2>/<1 
1W**2) ) ** 2 ) ** 0 . 3333 
SMAX=SC0N*PBAR*AL2/HEFF**2 
YMAx=DCON*PBAR*AL4/ <tP*HEFF**3> 

SLD( I )=100.*SMAX 

WRITE (6*440) SLD(I)»YMAX 

STRESS REVERSALS PER MISSION OR FOR VEHICLE 

IPFF— IPF ( I ) 

ANL(I)=FREQ*DT(IPFF) 

ANRMS(I)=.61*ANL(I) 

CALL MININ0(C,SLD( I) . ANRMs( I ) *CY(I) , SCR(I) ) 

IF (IM0APP.EQ.2) Go TO 340 
60 TO (260.270*280*290) * iPFF 
(6*450) SCR ( I ) 


WRITE 
GO TO 
WRITE 
60 TO 
WRITE 
GO TO 
WRITE 


300 

(6*380) 

300 

(6*460) 

300 

(6.390) 


SCR ( I ) 
SCR ( I ) 


310 

320 


SCR ( I ) 

IF (SCR(I).EQ.O.) GO TO 32U 

ANCR ( I ) =1 , 261*ANRMS ( I ) *SLD( I ) /SCR ( I ) 

WRITE (6.470) ANCr(I) 

SUM1=SCR ( I ) **2+SUMl 
SUM2=ANRMS ( I ) *SLD ( I ) +SUM2 
X=ALOG10(ANCR(D) 

ALLST=(C(1)+C(2)*X+C(3)*X**2+C(4)*X**3)»1000. 
IF (ALLST.GE.SCR(I) ) GO TO 310 
WRITE (6*480) ALLsT 
GO TO 320 

WRITE (6*490) ALLsT 
CONTINUE 


FTG 241 
FTG 242 
FTG 243 
FTG 244 
FTG 245 
FTG 246 
FTG 247 
FTG 248 
FTG 249 
FTG 250 
FTG 251 
FTG 252 
FTG 253 
FTG 254 
FTG 255 
FTG 256 
FTG 257 
FTG 258 
FTG 259 
FTG 260 
FTG 261 
FTG 262 
FTG 263 
FTG 264 
FTG 265 
FTG 266 
FTG 267 
FTG 268 
,/AW**2+l./BFTG 269 
FTG 270 
FTG 271 
FTG 272 
FTG 273 
FTG 274 
LIFETIME FTG 275 
FTG 276 
FTG 277 
FTG 278 
FTG 279 
FTG 280 
FTG 281 
FTG 282 
FTG 283 
FTG 284 
FTG 285 
FTG 286 
FTG 287 
FTG 288 
FTG 289 
FTG 290 
FTG 291 
FTG 292 
FTG 293 
FTG 294 
FTG 295 
FTG 296 
FTG 297 
FTG 298 
FTG 299 
FTG 300 


Figure 1-12. Source Listing — FATIG, Contd 


1-29 



030 

340 

350 

360 

370 

360 

390 

*00 

*10 


IF (SUM1.EQ.0. ) Go TO 340 
SBAR=SQRT(SUM1) 

ANBAR=1 ,261*SUM2/SBAK 
WRITE ( 6 » 500 ) Sf3AR,AlMBAR 
X=AuOG10(AiMBAR) 

ALLSI=(C(1 )+C(2)*X+C(3)*X**2+C(4)*X**3)*1000. 
IF (ALLST.GE.5BAR) GO TO 330 
WRITE <6»4B0) ALLsT 
GO TO 340 

WRITl ( 6 • 490 ) ALLST 
RETURN 


FTG 301 
FTG 302 
FTG 303 
FTG 304 
FTG 305 
FTG 306 
FTG 307 
FTG 308 
FTG 309 
FTG 310 
FTG 311 


format 

FORMAT 

FORMAT 

FORMAT 

format 

FORMAT 

format 


(39H 
(39H 
( 13H 
(24H 


*20 

*3u 

*40 

*50 

>60 

*70 

*80 

*90 

300 


FTG 312 

(1H1) FTG 313 

< i*hoy-d i stance error=ei2.4> ftg 314 

(14H ABES NOISE = > F 6 • 1 * 3H DB) FTG 315 

ROCKET ENGINE NOISE CRITICAL STRESS = »E12.4,4H PSI) FTG 316 

JET SCRUBBING NOISE CRITICAL STRESS = »E12.4,4H PSI) FTG 317 

FREQUENCY = »F7.1#3H HZ/) FTG 318 

BOUNDARY LAYER NOISE = »F6.1*21H DB - REYNOLDS NO. = . FTG 319 

It 12 , * » 1 3 H t viach No. = »E12.4/20H DYNAMIC PRESSURE = ,E12.4,13H* VEFTG 320 

2L0C I r Y = » E 12 • 4 ) FTG 321 

FORMAT (23H ROCKET ENGINE NOISE = »F6.1»31H DB - APPARENT NOISE SOFTG 322 
luRCE AT » F6 . 1 # 3H FT) FTG 323 

FORMAT (23H JET SCRUBBING NOISE = »F6.1»3H DB) FTG 324 

FORMAT ( 26H0MAX IM(jM BENDING STRESS = »F10.G,4H PSI/26H MAXIMUM RMSFTG 325 
1 DEFLECTION = ,Fl0.5#3H IN) FTG 326 

BOUNDARY LAYER NOISE CRITICAL STRESS = »E12.4»4H PSD FTG 327 
JET Flyback engine NOISE CRITICAL STRESS = »E12.4r4H PFTG 328 

FTG 329 

NO. Of STRESS REVERSALS = »E12.4) FTG 330 

***PAnEL IS SUSCEPTIBLE TO FAILURE/39H CRITICAL STRFTG 331 
REOUCED TO ,E12.4#21H PSI TO AVOID FAILURE) FTG 332 

♦♦♦PANEL IS GOOD FOR THIS CONQlT I0N/40H CRITICAL STFTG 333 
INCREASED TO ,tl2.4,4H PSI) FTG 334 

FORMAT (29HOCOMPOSITE CRITICAL STRESS = »El2.4,4H PSI/27H NO. OF SFTG 335 
1 TRESS REVERSALS = .E12.4) FTG 336 

END FTG 337- 


(40H 
( 44H 


FORMAT 
FORMAT 
1SI ) 

FORMAT 
FORMAT 
IESS MUST PE 
FORMAT (36H 
1KESS MAY BE 


(27H 

(35H 
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SUBROUTINE INPUT! INP 1 


INP 2 


DIMENSION CONF (3) , TURB ( 4 ) .WALT (4) ,ANGL<4) *QLOC ( 6 ) , ID (9 

.9) 


INP 

3 

DIMENSION A(20) .AlPHA (99) .ALT (99), AX (9* 

9*9) , AY ( 9, 9*9) » 

BETA ( 99) * 


INP 

4 

1 DIST (9) » £ ( 2 U » 99 ) ,EAT(20,9g> ,EDOT(20,99) 

,EMIS(9> ,FC Y ( 20 

*99) , 


INP 

5 

2FNET ( 20 ) » FT ( 20 ) ,FtU<20*99) *HINSD<99) ,MAT<9*9> 

,MPT (9,9) 

, Mr ( g, 18) 

9 

INP 

6 

3NI ( 18 ) » NR ( 18) »PINp (99) » Q ( g ) , QCONL ( 9 ) , QCONT ( 9 ) 

»QINP (99) 

. QNET ( 9 ) * 


INP 

7 

4KH0 ( 9 ) » T ( 20 » 99 > , TAMP ( 9 , 9 ) , TEMP ( 9 , g ) ,TIME(99> , 

TINSD(99) 

»VFACT (9, 

18) INP 

8 

5 , V I NF ( 99 ) » X ( 9 ) » XX ( 20 ) 

, Y ( 9 ) *ZZ(20) ,TALLW(9) 




INP 

9 

COMMON a ,Al 

.alpha 

.ALT 

, AME 

, AMI 

, AOFA 

9 

INP 

10 

1AROD , AS , Ax 

* Ay 

, BAT A 

.be 

.BETA 

* BF 

9 

INP 

11 

2bFL * BL .DELTA 

,DlAM 

.DIST 

»DNX 

*DNY 

» DNZ 

9 

INP 

12 

3DST ,E .EALL 

,eat 

» EDOT 

,EMIS 

,FCY 

*FNET 

9 

INP 

13 

4FT . FTU ,Fo7 

*hh 

, HINS 

.HINSD 

, ICONF 

. IQINP 

9 

INP 

14 

5ITURB # IWALT .MAT 

, MpT 

, MR 

.ncolm 

,NCR 

* NF 

9 

INP 

15 

6NI . NPSG .NR 

, NrSG 

.NSECT 

,NSEG 

.NTRAJ 

* PE 

9 

INP 

16 

7PI ,PINP . Q 

.QCONL 

.QCONT 

,QINP 

*QNET 

*R 

9 

INP 

17 

8RH0 . RHO I ,RyE 

,Ryi 

* SL 

*SLS 

.STAAT 

* ST I 

9 

INP 

18 

9ST00P .T ,TAMP 

,tau 

»TC 

,TC1 

, TEMP 

*TI 

9 

INP 

19 

*TIM£ .TINS .TlNSU 

*TS 

, UF 

,\JF ACT 

.VI 

.VINF 

9 

INP 

20 

SwROTL »X .XEMIS 

,Xx 

* Y 

,ZZ 

» NCRC 

* T ALLW 

9 

INP 

21 

SHINS . F ACC . NpRT 







INP 

22 

COMMON/SONIC1/ Ae 

* A I 

, AW 

.AMACH 

,6W 

*C (4) 

9 

INP 

23 

ID . DT ( 4 ) ,DvEH 

* Ep 

, HP AN 

»HC 

,HF 

, IPAD 

9 

INP 

24 

2KFLEa .NENG . Np AN 

»QL 

, REY 

,RHOP 

, TJ 

*TT 

9 

INP 

25 

3VJ »VS » vu 

»vv 

. WEJ 

*wer 

» IPF ( 4 ) 

*XI 

9 

INP 

26 

4XJ .XL .yp 

, IpF I 

, aiy 

,dref 

»YCL 



INP 

27 

DIMENSION AIml ( 4 ) » ANRMs ( 4 ) ,ANML(4) »SCR(4 

) ,PF(4 

) ,CY(4) ,SLD(4) , 


INP 

28 

1 SPMAX ( 4 ) »TITLE(13) 







INP 

29 

namllist/datanu/iconf 

, IQCON, IQINP, ITURB 

.iwalt 

.NANG.NCOLM, NSEG, 


INP 

30 

lNMAf.NRSG, NPSG, NCR, NF 

.nsect,onx,dny.dnz 

,XDST, 

DIAM, AROD 

, XEMIS, STAATINP 

31 

2, DEL FA, WROTE, STOOP, AS 

,r,hh*ts, 

TC.SL.SLS 

,BE . F07, UF , DST . 

EALL.BF.BFL 

, INP 

32 

3bL » X , y » QCONL .QCONT . NUT«A J , NUUI 

M.NINS 





INP 

33 

DATA CONF/ bHPLATE * 

6HC0nE , 

6HSPHERE 

/ 




INP 

34 

DATA TURB/ 6HECKERT, 

6HSPALDI, 

6H 

, 6HNG 

-CHI / 



INP 

35 

DATA WALT/ bHUNIFOR » 

6HN0NUNI, 

6HM 

, 6HF0RM / 



INP 

36 

DATA ANGL/ 6HVARIE0, 

6HC0NSTA, 

6H 

, 6HNT 

/ 



INP 

37 

DATA QLOC/ 6HCALCuL. 

6HINPUT , 

6HINPUT 

* 6HATED * 6HQ 

. 1HT 

/INP 

38 








INP 

39 

NUD1M=0 







INP 

40 

NUTRAJ=0 







INP 

41 

NTRAJrO 







INP 

42 

WRITE (6*410) 







INP 

43 

DO 20 1=1,10 







INP 

44 

READ (5,420) JI, TITLE 







INP 

45 

IF (EOF, 5) 30,10 







INP 

46 

10 WRITE (6*430) TITLE 







INP 

47 

IF (UI.GT.O) GO TO 40 







INP 

48 

20 CONTINUE 







INP 

49 

WRITE (6*440) 







INP 

50 

30 STOP 







INP 

51 

40 IF (JI.NE.2) GO TO 50 







INP 

52 

READ (5.DATANU) 







INP 

53 

IF (NUDIM.EQ.O.AND.NUTRAJ.EQ.O) GO TO 300 




INP 

54 

IF (NUDIM) 250,250*100 






INP 

55 

50 READ (5,450) ICONF , IQCON, IQINP, I TURB, IWALT .NANG.NCOLM* 

NSEG.NMAT 

, NR INP 

56 

isg*ncrc,nsect*nins*nf 

,nprt 






INP 

57 

NPSG=14 







INP 

58 

IF (NSECT.EQ.4) NpSG= 

12 






INP 

59 

IF (NSECT.EQ.3.0R.NSECT.E0.6) 

NPSG=10 





INP 

60 
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READ { 5 » 460 ) DNX»DNY#DNZ»XOST,DIAM»AROD»XEMI5»FACC 

INP 

61 


READ ( 5 , 460 ) ST AAj , DELTA , WROTE » STOOP 

INP 

62 


READ (5,460) AS,R,HH*TS,TC,SL,SLS,BE 

INP 

63 


READ (5,460) F07,uF,DST,EALl_,CRN,BF,BFL*BL 

INP 

64 


NCR=IFIX(CRN) 

INP 

65 


READ (5,460) (TALLW(I)#I=1’9) 

INP 

66 


READ (5,460) (EMIs(I) ,1=1,9) 

INP 

67 


HEAD (5,460) (RHO(I) ,I=1,9> 

INP 

68 


DO 90 1=1 , NMAT 

INP 

69 


READ (5,450) ( ( ID ( I , J) ,MPt ( I » J> ) , J=1 ,8 ) 

INP 

70 


DO 90 J=1 , 8 

INP 

71 


IF ( 1D( I » J) , EQ. 0 . ) GO TO 90 

INP 

72 


KK=MRj( I , J) 

INP 

73 


IF (o.EO.l) 60 TO 70 

INP 

74 


IF ( ID< I »<J) .EQ.2) GO TO 70 

INP 

75 


DO bU K=1 , KK 

INP 

76 

60 

AX( it J»K)=AX(I.J-l*K) 

INP 

77 


GO TO 80 

INP 

78 

70. 

READ (5,460) ( AX ( I * J * K > . K=1 , KK ) 

INP 

79 

80 

READ (5,460) (AY( I , J»K) ,K=1 ,KK) 

INP 

80 

90 

CONTINUE 

INP 

81 

100 

IF (NCOLM.GT.l) GO TO 110 

INP 

82 


X ( 1 ) =1 . 

INP 

83 


K = 1 

INP 

84 


OCOiNL ( 1 ) — 1 • 0 

INP 

85 


ocoNrd)=i.o 

INP 

86 


GO TO 170 

INP 

87 

J.10 

read (5,460) (X(I),I=1»9> 

INP 

88 


K = 9 

INP 

89 


IF ( IqCON-2 ) 120,140,160 

INP 

90 

120 

DO 130 1=1,9 

INP 

91 


gconl<I)=i.o 

INP 

92 

130 

QCONT(I)=1.0 

INP 

93 


GO TO 170 

INP 

94 

140 

READ (5,460) ( QCOnL ( 1 ) , 1=1 , 9 ) 

INP 

95 


DO lbO 1=1,9 

INP 

96 

150 

GCOnT(I)=QCONL(I) 

INP 

97 


GO TO 170 

INP 

98 

160 

READ (5,460) ( GCOnL < 1 ) , 1=1 » 9 ) 

INP 

99 


READ (5,460) (OCONT(I) ,I=1»9) 

INP 

100 

170 

READ (5,460) (Y(I) ,1=1,9) 

INP 

101 


DO 160 J=1 , NSEG 

INP 

102 

±80 

READ (5,470) (MAT(I,0),TAMR(1,J),I=1,K) 

INP 

103 


IF (NCOLM.EQ.l.OR.NRSG.EQ.O) GO TO 250 

INP 

104 


DO 190 J=1 , NRSG 

INP 

105 

190 

READ (5,480) NR(J) ,Ni(J) , (MR(I,J) ,VFACT(I,J) ,1=1,9) 

INP 

106 


REAu (5,450) IPFI, (IPF(I) ,1=1,4) , IPAD, KFLEX,NPAN 

INP 

107 


DO 240 Nl=l » IPFI 

INP 

108 


N2=IPF(N1) 

INP 

109 


60 TO (200,210,220,230), N2 

INP 

110 

*no 

REAU (5,460) DT(N2) »XL,REy» VU,QL, AMACH 

INP 

111 


GO TO 240 

INP 

112 

210 

READ (5,460) DT (N 2 ) » TT » WER , D , VS, X I , DVEH , YCL, DREF 

INP 

113 


GO TO 240 

INP 

114 

220 

READ (5,460) DT (N 2 ) , AE , VJ , WEJ, VV , TJ , XJ , YP 

INP 

115 


GO TO 240 

INP 

116 

*30 

HEAD (5,460) DT(N2) 

INP 

117 

*40 

CONTINUE 

INP 

118 


read (5,460) HPAN,HC»AI»AIY,AW,BW,EP 

INP 

119 


READ (5,460) (C(I) ,1=1,4) ,KHOP 

INP 

120 
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*50 IF (NUDIM.EQ.l.AND.NUTRAJ.tQ.O) 
IF (JI.EQ.3) GO TO 300 
NTRAJ1=NTRAJ 
DO 260 1=1*99 


GO TO 300 


READ (5*490) 

10(1) ,nreadt 

NTRAJ=I 

IF (NREADT.GT.O) 
*60 CONTINUE 

WRITE (6*500) 

STOP 

*70 IF (NUTRAJ.EO.1) 
IF (NANG.LT .2) GO 


INP 121 
INP 122 
INP 123 
INP 124 


TIME ( I ) * ALT ( I ) ► V INF ( I ) * ALPHA ( I ) *BETA ( I ) »HINSD ( I ) .TINSINP 125 

INP 126 
INP 127 

GO TO 27 0 INP 128 

INP 129 
INP 130 
INP 131 

NTRAJ=NTRAJ1 INP 132 

TO 290 INP 133 


*80 

^90 

500 


DO 260 I=2*NTRAJ INP 134 

ALPHA(I)=ALPHA(1) INP 135 

bETA(I)=BETA(l) INP 136 

WRITE (6*510) ( ( I , TIME ( I ) » ALT (I) * VINF ( I) * ALPHA ( I ) #BET A f I > *HINSD ( I ) INP 137 

1 * TInSD ( I ) ) * 1 = 1 * NTRAJ) INP 138 


510 

320 


NUDIM=0 

NUTRAJ=0 

UIST(1)=XDST 

IF (iwALT.LT. 2) GO TO 320 
00 310 I =2 * NCOLM 

DIST(I)=DIST(I-1)+0.5*(X(I)+X(I-1) ) 


INP 139 
INP 140 
INP 141 
INP 142 
INP 143 
INP 144 


WRITE ( 6 * 520 ) CONf(ICONF) .TUKB(ITURB) »TURB(ITURB+2) »WALT(IWALT) »WAINP 145 
1LT< IWALT+2) » ANGL(NANG) , ANgL ( NANG+2 ) *QLOC( IQ INP) ,QLOC ( IQINP+3 ) INP 146 

WRITE ( 6 * 530 ) DNX,DNY,ONZ INP 147 

XDST »D1AM» ArOQ»XEMIS»STAAT * STOOP, DELTA, WROTE INP 148 


WRITE 

WRITE 

WRITE 

WRITE 

write 

WRITE 
DO 330 

write 


( 6 * 540 ) 

(6*550) 

( 6 * 640 ) 

( 6 * 650 ) 

( 6 ► 660 ) 

(6*670) 

I=1*NMAT 

( 6 * 690 ) I, (AX(l*J»l)*AY(I,J,i),J=l,4) 


( I* 1=1*9) 

(TALLW(I) f I=1,NMAT) 
(EMIS(I) *I=1*NMAT) 
(RHO(I).I=l*NMAT) 


530 


540 


350 


360 


370 

380 


( AX ( I * J * K ) * AY ( I , J , K ) * Jil * 4 ) 


DO 330 K=2*9 
WRITE (6*700) 

WRITE (6*680) 

DO 340 I=1*NMAT 

WRITE (6*690) I , ( AX ( i , J . 1 ) * AY ( I * J , 1 ) , J=5* 8 ) 

DO 340 K=2*9 

WRITE (6*700) (AX(I.*J»K) »aY(I*J,K)*J=5*8) 

WRITE (6*560) 

IF (NCOLM. GT.l) GO TO 350 

WRITE (6*570) Y* (MAT ( 1 * I ) ,1=1,9) * (TAMP (1*1) *1 = 1*9) 

GO TO 380 

WRITE (6*580) X*QC0NL,QC0NT, (MAT( 1*1) r 1=1*9) * Y ( 1 ) * (TAMP ( I * 1 ) * 1=1 , 9INP 
1 ) 

DO 360 J=2*NSEG 

WRITE (6*590) J* (MAT(I*J) ,1=1*9) ,Y(J) 

WRITE (6*600) 

IF (NRSG.EQ.O) GO TO 380 
WRITE (6*610) 

DO 370 J=1*NRSG 

WRITE (6*620) NR(J)*NI(J),(MR(I,J)*VFACT(I*J)*I=1*9) 


INP 149 
INP 150 
INP 151 
INP 152 
INP 153 
INP 154 
INP 155 
INP 156 
INP 157 
INP 158 
INP 159 
INP 160 
INP 161 
INP 162 
INP 163 
INP 164 
INP 165 
INP 166 


(TAMP(I*J)*I=1,9) 


INP 

INP 

INP 

INP 

INP 

INP 

INP 

INP 


WRITE (6*710) as*r*hh,ts*tc*sl*sls*be*fo7»uf*dst*eall*crn»bf*bfl*binp 
1L INP 
WRITE (6*720)IPAD,KFLEX.NPAN*DT*XL»REY*VU»QL*AMACH*TT»WER»D*VS*XI**INP 
1DvEH»yCL*DREF*AE*vD»WEJ»Vv»TJ*XJ,YP*hPAN*HC,AI,AIY»Aw*BW»EP»C*KHOPINP 
write (6*630) INP 


167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
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IF (NCRC.LT.2) GO TO 400 
XX<1)=X(1> 

DO 390 1-2 * NCOLM 
090 XX(I)=XX(I-1)+X(I) 

400 WRITE <6>4lO) 

RETURN 

410 FORMAT (1H1) 

420 FORMAT (Il>13Ab) 

430 FORMAT (1X13A6) 


INP 181 
INP 182 
INP 183 
INP 184 
INP 185 
INP 186 
INP 187 
INP 188 
INP 189 
INP 190 


440 FORMAT ( ////94H0***** NUM0ER OF TITLE CAROS IS GREATER THAN 10 OR INP 191 

1JI WAS NOT ENTERED ON LAST TITLE CARD ****♦) INP 192 

450 FORMAT (2014) INP 193 

460 FORMAT (10F6.0) INP 194 

470 FORMAT <9(I2»Fb.0>) INP 195 

480 FORMAT < I 2 t 16 »9 ( I 2 • Eb . 0 ) ) INP 196 

490 FORMAT ( 7F8. 0 » 124 ) INP 197 

500 FORMAT (////87H0***** NUM0tR OR TRAJECTORY CARDS IS GREATER THAN 9INP 198 

10 OR LAST CARO WAS NOT FLAGGED ****♦) INP 199 

510 FORMAT (///44H0***** TRAJECTORY INPUT *****//4XlHI8lNP 200 
1X7HT1ME ( I )9X6HALT( I )PX7HVINF< I ) 7X8HALPHA ( I ) 8X7HBETA ( I ) 7X8HHINSD ( I ) INP 201 
27X8HT INSD ( I ) // ( I5» 3F15. 0 » 2^15*4 »El5. 4# F15.4 ) ) INP 202 

520 FORMAT (/////25H PROGRAM OPTIONS USED/27H CONFIGURATIONINP 203 

1- » A6/27H TURBULENT HEATING- .2A6/27H WALL TEMPEINP 204 

2RATUKE- i 2A6/27H ANGLE OF ATTACK- .2A6/27H LOCAL INP 205 

3HEAT FLUX- #2Ab/> INP 206 

530 FORMAT ( /5X » 46HDIRECTI ON COSINES OF OUTER NORMAL FROM SURFACE/14H INP 207 

1 D NX = #F7,4/14H ONY = ,F7.4/l4H ONZ = »F7,4/)INP 208 

540 FORMAT (/5Xf 30HDISTANCE From LEADING EDGE *F8.4»3H FT/35H BlNP 209 

10DY DIAMETER *F8.4*3H FT/35H SHOULDER RADIUS/BINP 210 

20DY DIAMETER .F8.4/35H EXTERNAL SURFACE EMISSIVITY rF6.2//35lNP 211 

3H INITIAL TIME ,F8.1*4H SEC/35H END TIME INP 212 

4 t F8 . l * 4H SEC/35H CALCULATION TIME INTERVAINP 213 

5L » F8 . 1 » 4H SEC/35H PRINT OUT INTERVAL »F8,1»4H INP 214 

6SEC// ) INP 215 

550 FORMAT (///5QH0***** MATERIAL PROPERTIES *****//INP 216 

116H MATERIAL NUMBER » 9 ( 7X » lH- r I 1 , 1H- ) ) INP 217 

560 FORMAT <///4SHu***** CONDUCTION INPUT *****//) INP 218 

-1- -2- -3- INP 219 

-7- -6- -9-/18H THICKNEINP 220 

»9I 10/18H INITIAL TEMP. R INP 221 

INP 222 

-1- -2- -3- INP 223 

-7- -8- -9-/21H WIDTINP 224 

INP 225 
— 1 INP 226 


570 FORMAT (108H SEGMENT NUMBER 

1 _4_ -5- -6- 

2SS FT » 9F10 ,4/lbR MATERIAL 

3.9F10.0//) 

380 FORMAT (11 1H COLUMN NUMBER t i 
1 -4- -5- -6" 

2H, X(I) FT »9F10,4/l6 H HEATING FACT0RS/21H LAMINAR 

3 » 9Fio . 1 / 21 H turbulent »9fio.i//21h seg.no. ( j = 


4— »H0»1H*»I9»7I10/14H THlC*.fY<J) =»F7.4»Fl0.0»2H**»F8.0,7F10.0) INP 227 
390 FORMAT ( /18X » 1H- * 1 1 * 1H- » 91 10/F21 , 4 » 9F10 .0 ) INP 228 

600 FORMAT ( IX *60 ( 1H- ) //5X» 8H--N0TE— /27H * = MATERIAL NUMBER/3INP 229 

17H ** = INITIAL TEMPERATURE DEG R//) IN P 230 

b 10 FORMAT (/55H0***** RADIATION INTERCHANGE ****INP 231 
1+//54H SE6 NO, NJ INTERCHANGE NEIGHBORS AND VIEW FACTORS/) INP 232 
620 FORMAT <1X»2H ( * 12 , 1H ) , I 5 , 2X» 9 ( 2H ( * 12 * 1H) *F6.3> ) > INP 233 

630 FORMAT ( ///36H0***** END OF INPUT ****♦) INP 234 

640 FORMAT ( 18H0ALLOWABLE TEMp, R.9F10.3) INP 235 

650 FORMAT ( 11H0EMISSIVITY7X9F10. 3) INP 236 

b60 FORMAT ( 18H0MATERI AL DENSITY 9F10.3) INP 237 

670 FORMAT ( ///16H MATERIAL NjMBER * 8X14HHEAT CAPACITY *9X2QHTHERMAL COINP 238 
1NDUCTIVITY»9X14HY0UNGS MODULUS »8X22HTHERMAL EXPANSION C0EF/12X4 { 12INP 239 
2X2HAX » 10X2HAY) ) INP 240 
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b6G FORMAT (///16H MATERIAL N(jM8ER » 8X14HyIEL0 STRENGTH » 9X20HULT TENSILINP 241 
IE STRENGTH# 5X22HL ARSON-MILLER STRAIN 1»4X22HLARS0N-MILLER STRAIN 2INP 242 
2/12X4 { 12X2HAX# 10X2HAY ) ) IN p 243 

L90 FORMAT (/I9»7X#4(2X2£12.3) ) IN p 244 

700 FORMAT (16X*4(2X2E12.3) ) INP 245 

710 FORMAT ( ///36H0***** STRESS INPUT *****//j3X2HAS» 14X1HRINP 246 
1»13X2HHH» 13X2HTS#i3X2HTC#13X2HSL#12X3HSLS»13X2HBE/8E15.3//12X3HF0?INP 247 
2# 13X2HUF ♦ 12X3HDST, 11X4HEALL, 12X3HCRN, 13X2HBF # 12X3HBFL# 13X2HBL/8E15INP 248 
3.3) 1 NP 249 

720 FORMAT (///38HQ***** FATIGUE INPUT *****//l 1X4HIPAD10XINP 250 
lbHKFLEX , 1 1X4HNPAN , 10X5HDT ( 1 ) » 10X5HDT ( 2 ) , 10X5HDT ( 3 ) • 1 0X5HDT ( 4 ) » 13X2INP 251 
? H ^ / '? I i?;, 5El ^* 3//l2X3HREY ' 13X2HvU » 13 X2HOL»lOX5HAMACH»13X2HTT»12X3HlNP 252 
3«(ERrl4XlHD*13X2HVs/«H5.3//i3X2HXI*tlX4H0VEH»12X3HTCL» 11X4HDREF,13INP 253 
4X2HAE, 13X2HVJ#12X3HW£J» 13 x2HVV/8E15, 3//13X2HTJ# 13X2HXJ# 13X2HYP# 11XINP 254 
54HHPAN# 13X2HHC # 13x2HAI , 12X3HAI Y. 13X2HAW/8E15. 3//21X2HBW » 13X2HEP. 11 INP 255 
£X4HC ( 1 ) # 1 1 X4HC (2) t 11X4HC (3) > 11X4HC ( 4 ) t 1 1X4HRH0P/8X7E15, 3) INP 256 

END INP 257- 
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SUBROUTINE MININO(DI»SLDfCTU»CY,SCR) MNN 

DIMENSION D I ( 4 ) MNN 

COMMON/ APR 1/ NO APP MNN 

DIMENSION C ( 3 ) MNN 

OATA C / 2.631102E-Q2* -2.63SE-02, -4,9393315-01 /, PI / 3,14159 /MNN 
NOAPPrO MNN 

CYMAX=CYL MNN 

XIU=1.E30 MNN 

ETAu=1.0 MNN 

XIL=0.0 . , MNN 

ETAL=0.0 MNN 

L=0 MNN 

DO 10 IrL.10 MNN 

ETA=U, 999/10. **I MNN 

CY=ETA*CYL MNN 

C1=APP(SLD.CY,CYL,DI ) MNN 

IF (NOAPP.NE.O) 60 TO 100 MNN 

C2=ALL(0I .CY) MNN 

XI=C2-C1 MNN 

IF (XI.GE.XIU) GO TO 90 MNN 

IF ( ABS(X1/C1) .LT.0,01) GO TO 70 MNN 

IF (XI.LT.0.0) GO TO 20 MNN 

XIU=XI MNN 

ETAU=ETA MNN 

10 CONTINUE MNN 

20 XIL=XI MNN 

ETAL=ETA MNN 

ETA=0 ,5* (ETAL+ETA(j) MNN 

CY=ETA*CYL MNN 

C1=APP(SLC»CY»CYL,DI ) MNN 

IF (NOAPP.NE.O) GO TO 100 MNN 

C2=ALL(DIfCY) MNN 

XI=C2-C1 MNN 

30 IF (ABS(XI/C1) .LT.0.01) Go TO 70 MNN 

IF (XIL.LE.XI.AND.XI.LE.XIU) GO TO 40 MNN 

GO TO 90 MNN 

40 IF (XI.LT.0.0) GO TO 50 MNN 

XIU=XI MNN 

ETAU=ETA MNN 

60 TO 60 MNN 

50 XIL=XI MNN 

ETAL=ETA MNN 

60 ET A=Q ,5* ( ETAL+ETAu) MNN 

CY=ETA*CYL MNN 

C1=APP(SL0,CY.CYL,DI) MNN 

IF (NOAPP.NE.O) GO TO 100 MNN 

C2=ALL(DI,CY) MNN 

XI=C2-C1 MNN 

GO TO 30 MNN 

70 Y=CY/CYL MNN 

IF (Y,GT.0.455.ANp.Y.LT.1.0) GO TO 80 MNN 

SCR=( (-C(2)-SQRT(C(2)**2-4.*C(3)*(C(D-AL0G(Y) ) ) >/(2.*C(3> ) ) *SLD MNN 
GO TO 110 MNN 

80 SCR=(2./Pl*AC0S(l.-PI/1.2l2*U.-Y) ) )*SLD MNN 

GO TO 110 MNN 

90 WRITE (6*120) MNN 

100 SCR=G. MNN 

HO RETURN MNN 

C MNN 

120 FORMAT ( 30H0ITERATION FAILED TO CONVERGE.) MNN 

ENO MNN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 
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28 

29 
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31 

32 

33 
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35 

36 

37 

38 

39 

40 

41 

42 
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SUBROUTINE panel 
DIMENSION ALPHE (2o ) 


PNL 

PNL 

PNL 


1 

2 

3 


DIMENSION A ( 20) 

.ALPHA (99) .ALT (99) , Ax (9,9*9) * AY (9*9,9) .BETA (99) * 

PNL 

4 

1DIST<9> 

*£(20*99) *EAT(20 

,99) , EDOT (20*99) 

*EMIS(9),FCT(20*99), 

PNL 

5 

2FNET(20) *FT (20) 

,FtU(20* 

99) , H1NSD (99) ,MAT(9*9) 

,MPT(9.9) *MR(9,18) . 

PNL 

6 

3NI ( 18 ) * 

NR ( 18 ) *PINp ( 99 ) * 

Q(9> *UC0NL(9) ,QC0NT(9) 

, QINP ( 99) * ONET (9) . 

PNL 

7 

4ftH0(9) * 

T ( 20 # 99) 

,TaMP(9, 

9)*TEMP(9,9) *TIME(99) * 

TINSD(99) *VFACT(9,18)PNL 

8 

5 * V I NF (99 ) * X ( 9 ) * 

XX (20) ,Y(9) ,ZZ(20) ,TAlLW(9) 


PNL 

9 

COMMON 

A 

»Al 

.ALPHA 

.ALT 

, AME 

.AMI . AOFA , 

PNL 

10 

1AROD 

* AS 

,Ax 

* Ay 

*BATA 

*BE 

.BETA »8F * 

PNL 

11 

2BFL 

*bl 

, delta 

,DIAM 

* DIST 

*DNX 

*DNY *DNZ . 

PNL 

12 

3DST 

* E 

.eall 

,EAt 

.edot 

*EMIS 

,FC Y .FNET , 

PNL 

13 

AFT 

*ftu 

,F 0 7 

, hh 

,HINS 

.HINSD 

.ICONF . IOINP * 

PNL 

14 

5ITURB 

, lwALT 

.MAT 

, MpT 

.MR 

.ncolm 

.NCR .NF . 

PNL 

15 

6NI 

* NFSG 

,nr 

»nrsg 

.NSECT 

*nseg 

.NTRAJ .PE , 

PNL 

16 

7PI 

* P I NP 

,Q 

.QCONL 

, OCONT 

*QINP 

*QNET »R * 

PNL 

17 

8RH0 

,Rhoi 

»RyE 

♦ Ryi 

,SL 

,SLS 

.STAAT »STI , 

PNL 

18 

9ST00P 

* T 

.TaMP 

,tau 

♦ TC 

*TC1 

.TEMP . TI . 

PNL 

19 

$TIM£ 

.TINS 

.TlNSU 

♦ TS 

,UF 

*VF ACT 

.VI .VINF . 

PNL 

20 

SwROTE 

, X 

.XEMIb 

.xx 

» Y 

,zz 

. NCRC .TALUK . 

PNL 

21 

$NINs 

* F ACC 

,NpRT 





PNL 

22 








PNL 

23 

60 TO ( 

10,40.70 

,100,130 

.160) . 

NSECT 



PNL 

24 


C*****CONF IGURAT ION NO 1 
10 RHR=(R-HH)/R 
THETA=AC0S(RHR) 
bF=AS-2.*R*SIN( THETA) 

TC1=TC*S IN (THETA) /THETA 

A(1)=.1*(AS-BF)*TS 

XX(1)=.05*(AS-BF) 

ZZ(1)=. 5*TS 
DO 20 1 = 2. b 
A(I)=A(1) 

XX(I)=XX(I-1)+2.*XX(1) 

20 ZZ(I)=ZZ<1> 

A(6)=.25*BF*(TS+TC> 

XX<6)=.5*AS-.375*BF 

ZZ(6)=.5*(TS+TC) 

A ( 7 ) =A ( 6 ) 

XX ( 7 ) =XX ( 6 ) + • 25*BF 
ZZ(7)=ZZ(6) 

ALPHE ( 1 ) =THETA*13 . / 14 . 

alph=alphe ( 1 ) 

A(8)=R*THETA*TCl/7. 

XX(8)=R*SIN(ALPH) 

ZZ ( 8 ) =R*COS ( ALPH ) -R4HH+TS 
00 3U 1=9*14 

ALPHE ( 1-7 ) =ALPHE ( 1-8 ) -THETA/7 . 
ALPH=ALPHE( 1-7) 

A ( I ) =A (6) 

XX( I)=R*SIN(ALPH) 

30 ZZ(I)=R*COS(ALPH)-R+HH+TS 
RETURN 

C*****CONFIGURATION NO 2 

40 THETA=ATAN(HH/( ,5*AS-BF) ) 
BW=HH/SIN( THETA) 

QX1=.1*(AS-BF) 

A(1)=DX1*TS 
XX ( 1 ) r. 5*DX1 


PNL 25 
PNL 26 
PNL 27 
PNL 28 
PNL 29 
PNL 30 
PNL 31 
PNL 32 
PNL 33 
PNL 34 
PNL 35 
PNL 36 
PNL 37 
PNL 38 
PNL 39 
PNL 40 
PNL 41 
PNL 42 
PNL 43 
PNL 44 
PNL 45 
PNL 46 
PNL 47 
PNL 48 
PNL 49 
PNL 50 
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PNL 53 
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PNL 55 
PNL 56 
PNL 57 
PNL 58 
PNL 59 
PNL 60 
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ZZ(1)=.5*TS 
DO 50 1=2 » 5 
A ( I ) =A ( 1 ) 

XX ( I ) =XX ( I-l ) +DX1 
50 ZZ(I)=ZZ(1) 

A(6)=.25*BF*(TS+TC> 
XX (b)=.5*AS-.375*BF 
ZZ(6)=.5*<TS+TC) 

A ( 7 ) =A ( 6 ) 

XX(7)=XX(6)+.25*Bp 
ZZ(7)=ZZ (6) 

□BW=.2*PW 

dxc=D8w*cos(the:tA) 

DZC=DBW*SIN(TH£TA) 

A ( 6 ) -DBW*TC 
aX(6)=.5*(AS-BF-DxC) 
ZZ(8)=TS+.5*(TC+DzC) 
DO oO 1=9 » 12 
A ( I ) =A ( 8 ) 

XX ( I ) =XX ( I-l ) -DXC 
60 ZZ(1)=ZZ(I-1)+DZC 
A ( 13 ) = . 25*BF*TC 
XX ( 13 ) = , 375*BF 
ZZ(13)=HH+TS+.5*TC 
A ( 14 ) =A ( 13 ) 

XX ( 14 ) = . 12b*BF 
ZZ(14)=ZZ(13) 

RETURN 

C*»**>*tCONF IGUR AT I ON NO 3 
70 DX=.1*(AS-TC) 
A(1)=DX#TS 
XX(1)=.5*< AS-DX) 

ZZ ( 1 ) =, 5*TS 
DO 80 I =2»5 
A ( I ) = A ( 1 ) 

XX ( I ) =XX ( I—l ) —DX 
80 ZZ(1)=ZZ(1) 

A ( 6 ) = , 1*HH*TC 
XX(b)=.25*TC 
ZZ(b)=.l*HH 
DO 90 1=7 » 10 
A ( I ) =A ( 6 ) 

XX ( I ) =XX ( 6 ) 

90 ZZ( X )=ZZ ( I-l )+HH/&. 
RETURN 

C**** ♦CONFIGURATION NO 4 
100 ABR=.5*( AS-BF)/R 
THETA=ASIN(ABR) 
DZ=R-R*COS(THETA) 
bw=HH-.5*< TS+TO-DZ 
A ( 1 ) = ,25*BF*TS 
XX(l)=.5*Ab-.125*BF 
ZZ(1)=0. 

A C 2 ) =A ( 1 ) 

XX(2)=XX(1)-.25*BF 
ZZ 1 2 > =0 , 

ALPH=1.1666*THETA 

A35=R+THETA*TS/3. 

DO 110 I=3»5 
ALPH=ALPH-THETA/3. 


PNL 61 
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PNL 96 
PNL 97 
PNL 98 
PNL 99 
PNL 100 
PNL 101 
PNL 102 
PNL 103 
PNL 104 
PNL 105 
PNL 106 
PNL 107 
PNL 108 
PNL 109 
PNL 110 
PNL 111 
PNL 112 
PNL 113 
PNL 114 
PNL 115 
PNL 116 
PNL 117 
PNL 118 
PNL 119 
PNL 120 


Figure 1-15. Source Listing — PANEL, Contd 

1-38 



A { I ) =A35 

XX(I)=R*SIN(ALPH) 

HO ZZ(I)=DZ-(R-R*COS(ALPH) ) 
A(6)=.125*8W*TC 
XX(6)=.25*TC 
ZZ(6)=DZ+.5*TS+.125*8w 
DO 120 1=7*9 
A(I)=A(6) 

XX(I)=XX(6) 

J-20 ZZ( I)=ZZ(I-1) + .25*BW 
A(l())=TC*BFL/4. 
XX(10)=.125*BFL 
ZZ<10)=HH 
A(ll)=A(10) 

XX ( 1 1 ) = . 375+8FL 
ZZ(11)=ZZ(10) 

A(12)=BL*TC 

XX(12)=.5*(BFL-TC) 

ZZ<12)=HH-.5*(TC+BL) 

RETURN 

C*+***C0NFIGURAT10N NO 5 
130 rtR=l ,-.5*HH/R 
THETArACOS(HR) 
BF=.b*AS-2.*R*SIN(THtTA) 
A(1)=.25*BF*TC 
XX ( 1 ) =. 125+BF 
ZZ(1)=0, 

A(2)=A(1) 

XX(2)=.375*BF 
ZZ( 2)=0. 

ALPH1=-0.1*THETA 
A27=.2*R*THETA*TC 
DO 140 1=3*7 
A<I)=A27 

alphi=alphi+.2*theta 
XX ( I ) =. 5*BF+R*SIN ( ALPH1 ) 
140 ZZ(I)=R-R*COS(ALPHl> 

DO 150 1=1*7 
J=B-I 

A ( 1+7 ) =A ( J ) 

XX( I+7)=.5*AS-XX( J) 

150 ZZ(I+7)=HH-ZZ(J) 

RETURN 

CONFIGURATION NO 6 
160 THETA=ACOS(l.-.5*HH/K) 

AS=2.*(2.*R-HH)*TAN( THETA) 
ALPH1=-0.1*THETA 
Al5r.2*R*THETA*TC 
DO 170 1=1*5 
A( I)=A15 

ALPH1=ALPH1+.2*THETA 
XX( I )=R*SIN(ALPH1) 

170 ZZ(I)=R-R*COS(ALPHl) 

DO iao 1=1*5 
0=6-1 

A( I+5)=A15 

XX ( 1+5) = • 5*AS-XX ( J ) 

180 ZZ(I+5)=HH-ZZ(J) 

RETURN 

END 
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c 


SUBROUTINE PRAb3(ALT*PlNF,TINF*RHOINF* ICK) 


C 


PRA 


PRA 

DIMENSION PB<14) ,ZI (5) *PK<6*5> *RHOK(6*3> *TK<6,5) *VTK(6*3> * PRA 

1ZB ( 14 ) , TMB < 14 ) *LMB(14) *DMB ( 14 ) , MB ( 14 ) PRA 

real LMB*MB*MWT PRA 

DATA PBASE/6.23101759E-5/ PRA 

DATA <ZI(I) *1=1, 5)/10832. 1*17853. 3, 28000. ,*+9000. *83004./ PRA 


DATA (PK (I) >1=1,30) /I « 6871582E-2 * “1 . 1425176E-4 *-l « 3612327PRA 
lE-9,7.3624145E-14,-1.0800315E-17#3.3046432£-22»-7.9910777E-2#-8.10PRA 
246436E-5*-5.5522383E-9*3,Ulb969E-13,-l,6687827E-l7,3,83l935iE-22*PRA 
39.8414277E-l*-2.69769l7E-4*8.522754lE-9*-3.9620263E-l3,1.0l46471E-PRA 


417#-1 , 0264318E-22 , PRA 

51 , 14118495E1 * -4 . 1 1497477E-4 , 1 .33664855E-8 »“3 . 59518975E-13 * PRA 

6b.l0097254E-l8#-2,89055894t-23» PRA 

79.99324461 * -2 ,58298 17 7E— 4 , 3. 76139346E-9 »-4 . 2Q887236E-14 » PRA 

81.60182148E-l9*-1.92508927t-25/ PRA 

DATA (RHOK(l) *1=1,18) /I . 33021 1 7E-2 , -8 . 8502064E-5 * -4 .21430PRA 

156E-9*5.9517557E-l3>-3.97447b9E-17»7,8771273E-22»i.2667l22E-l > PRA 

2- 1 .3373147E-4,2.0667371E-9*2.3396109E-13*-3.2562503E-17*7.9035209EPRA 

3- 22,9,2751266E-l*-1.4349679E-4,-2.8271736E-9>4.7480092E-14* PRA 

41 .aa63246E-18r-4.27024ilE-23/ PRA 

DATA (TK(I) '1=1,30) /2.9667877E2,-6.773100lE-3,e.4619fi05E-PRA 

1 7 » — 1 , 7004049E-1 0 , 1 . 1451454E-14*-2.4898788E-19, PRA 

22,6892l51E2*4.3075352E-3*-8,9l59672E-7,-2.8929791£— 11*5. 0724856E-1PRA 
35*-l . 1490372E-19* PRA 

43,7064557E2*-3.28589o5E-2,2.U645636E-6*-4.3283944E-ll *-5,7507242E-PRA 
517*8. 2924583E-21* PRA 

62.U44798E1 *2.07698384E-2*-8.b3038789E-7*1.66392417E-ll* PRA 

7- 9.30076185E-17*-4.09005lo8E-22* PRA 

8- 4.98865953E2,3.9213728lE-2,-4.95l80601E-7*-3.262l9854E-12* PRA 

9 9.6b650364E-17*-4.78844279E-22/ PRA 

DATA (ZBII) *1=1,14)/ PRA 

19.£4*1.E5,1.1E5*1.2ES,1.5E5,1.6E5,1.7E5*1.9E5.2.3E5,3.E5,4.E5*5.E5PRA 
2 * 6 *E5 *7 . E5/ PRA 

DATA (TMB(I) ,1=1,14)/ 180.65,210.65*260.65,360.65,960.65, PRA 

11110.65, 1210.65*1350.65, 1550.65, 1830, 65.21&0. 65 ,2420. 65 *2590. 65, PRA 

22700.65/ PRA 


DATA (LMB(I) ,1=1,14)/ 3,E-3,5.E-3* 10.E-3*20.E-3*15.E-3, 10.E-3*PRA 


17, E- 3*5, E- 3*4, £-3, 3. 3E-3 * 2»6E-3* 1 , 7E-3 , 1 . lE-3» 1 , IE— 3/ 


PRA 


DATA (MB < I) *1=1,14)/ 28 . 9644 , 28 . 88 , 28 , 56 * 28 . 07 * 26 . 92 , 26 ,66 , 26 . 40 * PRA 


125.85,24.70*22.66,19.94,17.94,16.84,16.17/ PRA 

DATA (DMB ( I ) » 1=1 , 14 ) / -0.844E-b,-3.20E-5,-4.9E-5*-3.833E-5» PRA 

12*-2 .60E-5 *-2.75E-5 *— 2. 8756-5 *-2 . 914E-5 ,-2 .72E-5, -2. 0E-5 ,-l , IE-5, PRA 
2-0.b7E-5*-0.67E-5/ PRA 

DATA (PB ( I ) , 1=1 , 14 ) /. 172244361E-4, , 315971712E-5* .774389807E-6* PRA 
1.265977111E-6, .535849383E-7, .391284945E-7* .295911117E-7* PRA 

2.178715656E-7, .739258171E-8, .200573116E-8* .430456606E-9* PRA 

3.117315480E-9, .37Q198961E-10* .128115330E-10/ PRA 

PRA 

10 Z=ALT * .3048 PRA 

IF (Z. GT. 700000. ) GO TO 1&0 PRA 

IF (Z.LT.O.) GO TO 160 PRA 

N=1 PRA 

IF (Z-83004.) 20*50,50 PRA 

20 IF (Z-2I (N) ) 40,30*30 PRA 

30 N=N+1 PRA 

GO TO 20 PRA 

40 Z2=Z*Z PRA 

Z3=Z2*Z PRA 

Z4=Z2*Z2 PRA 
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50 

60 

70 

80 

90 


Z5=Z2*Z3 
60 TO 90 

IF (Z-90000.) 130 * 60 ’ 60 
IF ( Z-ZB ( N) ) 80 >140 , TO 
NzN+1 
GO TO 60 
N=N-1 
60 TO 140 

TEMPKrTK <1 *N)+TK(2*N)*Z+TK<3fN)*Z2+TK(4»N)*Z3+TK(5*N 
lb 

IF ( Z-2800 0 . ) 100,110,110 

100 PR£S=lO.OOOOOOO*ExP(PK(l,N)+PK(2*N)*Z+PK(3»N)*Z2+PK{i 
1)*Z4+PK(6,N)*Z5) 

0ENS=<1. 16790729) *EXP < RHOK ( 1 »N > +RHOK ( 2 , N > *Z+RHOK ( 3 >N 
1*Z3+RH0« (5»N)*Z4+RHOK(6,N)*Zb) 

60 TO 150 

110 PRES=,000980665*ExP<PK<1*N>+PK(2,N)*Z+PK(3»N)*Z2+PK<» 
1)*Z4+PK(6,N)*Z5> 

120 QENS=34,8367b*(PRES/TEMPK) 

60 TO 150 
130 TEMPk=180.65 

PRES=PBASE»EXP( (-1 . 373301523E12* ( Z-83004. ) >/( 180.65* 
16344660. +83004. ) ) ) 

60 TO 120 

MwT=MB(N)+OMB(N)*(Z-ZB(N) ) 

TEMPM=TMB ( N ) +LMB ( N ) * ‘ Z-ZB < N ) ) 
TEMPK=(MWT/26.9644)*TEMPM 

PRES=EXP( ALOG(PB(N) ) + ( 1 . 37330 1 52 3E12/ (LMB ( N) * ( 6344B6I 
1 . +ZB ( N ) ) ) )*AL06(TMB(N)/(TMB(N}+(LMB<N>*<Z-ZB(N) ) ) ) ) ) 
DENS=34 . 83676*PREs/TEMPM 

PINF=PRES*206.8576 
TINF=TEMPK*1.8 
RHOINF=DENS*0. 0019404 
ICK = 1 
GO TO 170 
ICK = 0 
CONTINUE 
RETURN 
END 


140 


150 


160 
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PRA 

61 

PRA 
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PRA 

73 

l)PRA 
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SUBROUTINE PRINTl(ISS) 


PRN 

PRN 


1 

2 


DIMENSION A ( 20 ) 

, ALPHA (99) ,ALT (99) *AX(9*9*9) *AY(9*9*9) * 

BETA (99) * 


PRN 

3 

101ST19) *E(20*99) * EAT <20 *99) *£DOT ( 20 ,99 ) *EMlS (9) *FCY(20 

*99) . 


PRN 

4 

2FNET (20) »FT (20) 

*FTU(20 

*99) *HINSD(99) , 

MAT (9*9) 

♦MPT (9*9) 

* MR (9* 18) 

9 

PRN 

5 

3NI (IB) 

* NR ( 18 ) *PINp < 99 ) 

*0(9) * GCONL (9 ) , 

QCONT (9) 

♦QINP(99) 

* QNET (9) * 


PRN 

6 

4KHO ( 9 ) 

* T ( 20 * 99) 

♦ tamp ( 9 

*9) , TEMP ( 9 , 9 ) , TIME (99) * 

TINSD(99) 

♦ VFACT (9* 

ia)PRN 

7 

5*VlNF(99) *X<9) * 

XX (20) . 

Y(9) *2Z(20) ,TAlLW(9) 




PRN 

8 

common 

A 

*al 

♦alpha 

♦ alt 

* AME 

♦ AMI 

♦ AOFA 

9 

PRN 

9 

1AROD 

#AS 

* Ax 

,ay 

♦ BATA 

♦ BE 

♦ BETA 

*BF 

9 

PRN 

10 

2BFL 

»bl 

♦ delta 

♦ diam 

♦ dist 

♦ DNX 

♦ DNY 

* DNZ 

9 

PRN 

11 

3DST 

* E 

*eall 

♦ eat 

♦ EDOT 

♦ EMIS 

♦ FCY 

♦ FNET 

9 

PRN 

12 

4FT 

■ ♦ FTU 

*Fo7 

♦ hh 

♦ HINS 

♦HINSD 

♦ICONF 

* IQINP 

9 

PRN 

13 

51TUR6 

* IWALT 

*mat 

♦ MPT 

♦ MR 

♦ncolm 

♦ NCR 

*NF 

9 

PRN 

14 

6 NI 

♦ NPSG 

* Nr 

♦ nrsg 

♦NSECT 

♦ NSEG 

♦NTRAJ 

* PE 

9 

PRN 

15 

7PI 

• P INP 

.0 

♦QCONL 

♦QCONT 

♦ QINP 

♦ QNET 

*R 

9 

PRN 

16 

8RH0 

♦ RHO I 

*RyE 

♦ RYl 

* SL 

♦ SLS 

♦STAAT 

* STI 

9 

PRN 

17 

9ST00P 

* T 

,tamp 

♦ tau 

* TC 

♦ TCI 

♦ TEMP 

*TI 

9 

PRN 

18 

STIME 

* T INS 

*TlNSD 

♦ TS 

* UF 

♦VFACT 

♦ VI 

♦ VINF 

9 

PRN 

19 

swROTt 

* x 

♦XeMIS 

♦ Xx 

* Y 

♦zz 

♦ NCRC 

* T ALLW 

9 

PRN 

20 

SNINS 

♦ F ACC 

9 NpRT 







PRN 

21 










PRN 

22 

N=ISS 









PRN 

23 

write 

(6*30) TAU*AL*VI 

♦AOfA,PI*AMI,AME*RYI*PE 




PRN 

24 

WRITE 

(6*50) (I 

,1=1*9) 

♦Q*QNET 






PRN 

25 

□0 10 

J=1 *NS£G 








PRN 

26 

10 write 

(6*60) J* 

(Temp ( 1 

♦ J) ,1=1*9) 





PRN 

27 

IF (NINS.E0.1) 

GO TO 20 






PRN 

28 

write 

(6*70) (A(I ) *XX( I) *2^(1 ) * 

T(I*N) 

* FT( I ) * FNET ( I ) *ED0T ( I ) * FTU ( I 

♦ PRN 

29 

IN) ,FCY(I*N) *£(I 

,N) ,1=1 

♦ NPSG) 






PRN 

30 

write 

(6*40) 








PRN 

31 

20 RETURN 









PRN 

32 

30 FORMAT 

(1H0*20X3HTAU* 10X2HAL*10X2HVI, 

8X4HA0FA 

♦10X2HPI, 

9X3HAMI*9X3HPRN 

33 

1AME,9X3HRYI *!0X2HpE/12X*9El2.4) 






PRN 

34 

40 FORMAT 

( 1 H 1 ) 








PRN 

35 

50 FORMAT 

(//HXiHl*gI 12 // 8 X 4 HQ ( I ) 

♦9E12. 

4/5X7HQNET(I) *9El2.4/> 


PRN 

36 

60 FORMAT 

{ 3X7HTEMP ( I * 1 1 » 

1H) ,9E12. 

4) 





PRN 

37 

70 FORMAT 

(//11X1HA* 1 0X2HXX * 1 0X2HZZ * 1 1X1HT * 10X2HFT *8X4HFNET * 8X4HED0T 

♦ PRN 

38 

19X3HFTU * 9X3HFCY 

,UX1HE//(1UE12. 

3) ) 





PRN 

39 

END 









PRN 

40' 
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SUBROUTINE STRESS(ISS.IST) 

DIMENSION BMMAX(9g) fEDO(20> »SUME(20) 


STR 

STR 

STR 


1 

2 

3 


DIMENSION A ( 20 ) 

.ALPHA (99) , ALT (99) » AX (9.9,9) ,AY(9,9»9) , 

BETA (99) , 

STR 

4 

1DIST(9) #E(20.99) »EAT ( 20 . 99 > ,£DOT < 20 , 99 ) »EMlS<9) ,FCY(20 

.99) , 

STR 

5 

2FNET (20) .FT (20) 

,FTU(20 

,99) »HINSD(99) , 

MAT<9»9) 

»MPT (9,9) 

»MR(9» 18) , 

STR 

6 

3NI(ia> 

. NR ( 18 ) .PINP<99> 

,Q(9) »0C0NL<9) . 

QCONT (9) 

,QINP<99) 

,QNET(9) , 

STR 

7 

4RHO ( 9 ) 

»T (20.99) 

,TaMP(9 

,9) .TEMP (9,9) .TIME (99) , 

TINSD(99) 

.VFACT (9, 18) STR 

8 

5 . VINF (99 ) . X ( 9 ) . 

XX ( 20 ) » 

Y(9) »Z2(20) ,TALLW(9) 



STR 

9 

COMMON 

A 

,Al 

.alpha 

.ALT 

,AME 

.AMI 

» AOFA , 

STR 

10 

1AROD 

.AS 

»Ax 

»ay 

,BATA 

,BE 

.BETA 

» BF , 

STR 

11 

26FL 

.6L 

.delta 

»DI AM 

» DIST 

,DNX 

»DNY 

,DN2 » 

STR 

12 

30ST 

.E 

,eall 

.eat 

,ED0T 

,EMIS 

,FCY 

»FNET , 

STR 

13 

4FT 

. FTU 

,F 0 7 

,HH 

» HINS 

.HINSD 

.ICONF 

, IQINP , 

STR 

14 

5ITURB 

. IWALT 

.mat 

,MPT 

.MR 

.ncolm 

.NCR 

»NF , 

STR 

15 

6NI 

, NPSG 

,Nr 

,nrss 

.NSECT 

,nseg 

.NTRAJ 

, PE , 

STR 

16 

7PI 

. PINP 

,Q 

, QC°NL 

.QCONT 

,QINP 

»QNET 

»R , 

STR 

17 

8RH0 

,RHOI 

,RyE 

.RYl 

»SL 

,SLS 

.STAAT 

»STI , 

STR 

18 

9ST00P 

.T 

,tamp 

»tau 

» TC 

,TC1 

.TEMP 

,TI , 

STR 

19 

3>TIM£ 

.TINS 

.TlNSD 

,TS 

» UF 

.VFACT 

.VI 

, VINF , 

STR 

20 

SWROTE 

.X 

.xemis 

.XX 

» Y 

,zz 

,NCRC 

.TALLW » 

STR 

21 

$NINS 

. F ACC 

,NpRT 






STR 

22 









STR 

23 

Mr 1 








STR 

24 

KM=1 




- 




STR 

25 

ISS=ISS+1 







STR 

26 

II=ISS 








STR 

27 

J=ISS 








STR 

28 

GO TO 

o 

< 4 ” 

* 

o 

O 

,70,100 

,120). NSECT 




STR 

29 

DO 20 

1=1,5 







STR 

30 

T(l.J) 

=TEMP (1,1) 






STR 

31 

T (6, J) 

= . 5+ ( TEMP ( 6 . 1 ) +TEMP (6 » 2 ) ) 





STR 

32 


10 

20 


T (8,J)=TEMP(6.3) 

DO 30 1=9.14 
K=15-I 

30 T(I,J)=TEMP(K,4) 

GO TO 140 
40 DO 50 1=1 , 5 
K=7-I 

50 T ( I , J)=TEMP (K , 1 ) 

XT=5.*TS/HH 

T(6»U)=XT*TEMP(l»l)+(l.-XT)*TEMP(l,2) 

DO 60 1=7.10 

K=I-4 

60 T ( I »U) =TEMP ( 1 »K ) 

GO TO 140 
70 DO 80 1=1.5 
K=7-I 

80 T(I,U)=TEMP(K.l) 

DO 90 1=6.9 
K=I-4 

90 T ( I , J)=TEMP { 1 »K ) 

T ( lQ»vJ)=T£MP(2»6) 

T ( 11 , J) =TEMP (3.6) 

T(12,J)=TEMP(4.6) 

GO TO 140 
100 DO 110 1=4.14 

K=I-3 

IF (K.GT.9) K=9 


STR 33 
STR 34 
STR 35 
STR 36 
STR 37 
STR 38 
STR 39 
STR 40 
STR 41 
STR 42 
STR 43 
STR 44 
STR 45 
STR 46 
STR 47 
STR 48 
STR 49 
STR 50 
STR 51 
STR 52 
STR 53 
STR 54 
STR 55 
STR 56 
STR 57 
STR 58 
STR 59 
STR 60 
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no 

T ( I * J ) =TEMP ( K * 1 ) 

STR 

61 


T { 1 » j)=T17*U) 

STR 

62 


1 <2, d)=T<6* J) 

STR 

63 


T(3*J)=T(5*J) 

str 

64 


GO TO 140 

STR 

65 

120 

00 130 1=3*10 

STR 

66 


KzI-2 

STR 

67 

130 

T ( i * «j ) zTEMP ( K * 1 ) 

STR 

68 


T(1,J)=T(5*J) 

STR 

69 


T (2* u)=T(4* J) 

STR 

70 

140 

IF (IST.GE.l) GO TO 170 

STR 

71 


IST=1 

STR 

72 


L=MAT(1*1) 

STR 

73 


Lzl AdS ( L ) 

STR 

74 


CF=FLOAT ( NF ) ♦ WROTE/ 720 0 , 

STR 

75 


FCY0=AY (L.b. 1) 

STR 

76 

150 

CALL PANEL 

STR 

77 


K1M=0, 

STR 

78 


R2M=0. 

STR 

79 


k3M=0. 

STR 

80 


R4M=U . 

STR 

81 


R5M=U . 

STR 

82 


R6M=0, 

STR 

83 


DMAX=0. 

STR 

84 


WBMS=100. 

STR 

85 


DO loO 1=1 *NPSG 

STR 

86 


EOO( I )=0. 

STR 

87 

i-60 

SUMEII)=0. 

STR 

88 


IF (M.E0.2.0R.KM.GT.1) GO TO 180 

STR 

89 

♦♦♦♦CORRUGATION 8M AT MIO SPAN 

STR 

90 

170 

W=P£^AS/144. 

STR 

91 


SLP=bLS-2.+8E 

STR 

92 


bMMAX ( ISS ) =W+SLP*SLP/8 • 

STR 

93 

180 

DO 460 N=II,ISS 

STR 

94 

190 

suma=o. 

STR 

95 


sumtazo. 

STR 

96 


SUMMXzO. 

STR 

97 


SUMXXzO. 

STR 

98 


SUMAZzO. 

STR 

99 


UO 210 1 = 1 * hPSG 

STR 

100 


IF ( M . EQ • 2 • OR ,KM , gT . 1 ) GO TO 200 

STR 

101 


E(I*N)zTRPLAT(AY.AX. r<I,N) * L* 3* MPT (L * 3 ) ) 

STR 

102 


ALFA=TRPLAT(AY,AX,T(I*N) *L*4*MPT(L*4) ) 

STR 

103 


FC Y ( I ,N)ZTKPLAT (Ay*AX,T( I ,N) * L * 5 * MPT ( L * 5) ) 

STR 

104 


FTU( I ,N)ztkPLAT(Ay* AX,T( I ,N) * L * 6 * MPT < L * 6) > 

STR 

105 


EAT(I*N)=E(I*N)^AlFAMT(I,N)-530.) 

STR 

106 

200 

EATA=EAT(I*N)+A(I) 

STR 

107 


AE=E(I*N)^A(I) 

STR 

108 


suma=suma+ae 

STR 

109 


SUMTAzSUMTA+EATA 

STR 

110 


SUMMXzSUMMX+AE+ZZ ( I ) 

STR 

111 


SUMXXzSUMXX+AE+ZZ( I ) **2 

STR 

112 

Z10 

SUMAZzSUMAZ+EATA^zZ ( I ) 

STR 

113 


ABARZ5UMTA/SUMA 

STR 

114 


SBARZSUMA2/SUMTA 

STR 

115 


zbak=summx/suma 

STR 

116 


XXIZ2 , ♦ ( SUMXX-ZBAr+SUMMX ) 

STR 

117 


XXMz2,+SUMTA^(ZBAr-SBAR) 

STR 

118 


XXWzxXM/XXI 

STR 

119 


WX=8MMAX(N)/XXI 

STR 

120 
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DFL=(.1042*WX-.125*XXW)*SLS**2 

STR 

121 

OMAX1=ANAX1<ABS(DnAX) ,ABS(DFL) ) 

STR 

122 

if (ABS(OPAXl) .EQ.ABS(DFL) ) DMAx=DFL 

STR 

123 

C ***** T HER M AL STRESS 

STR 

124 

UO 220 I=1»NPSG 

STR 

125 

Fr< I)=E(I»N)*(ABAp+XXW*(ZBAR-2Z< I) ) )-EAT(I»N> 

STR 

126 

220 FNET(I)=FT{I)-WX*E(I»N)*(2BAR-2za> ) 

STR 

127 

C*****STRESS DUE TO APPlIED BM 

STR 

128 

C*.***buCKLING of skin 

STR 

129 

IF (M.EQ.2) GO TO 240 

STR 

130 

IF (NSECT.GT.2) Go TO 240 

STR 

131 

IF (FNET(l).GE.O.) GO TO 240 

STR 

132 

F7=F07*FCY ( 1 f N) /FcYO 

STR 

133 

FCR=3.62*E(1»N)*(tS/(AS-BF) >**2 

STR 

134 

CALL BUCKNG ( t ( 1 » N ) ,F7, FCR »FC f ( t ,N ) »FTU(1 »N) .NCR) 

STR 

135 

IF (FCR.GE.A6S(FNET(m ) GO TO 240 

STR 

136 

DO 230 I=l»4 

STR 

137 

^30 A ( 1 » = 0 . 

STR 

138 

M=2 

STR 

139 

GO TO 190 

STR 

140 

240 IF (NSECT.Nt.3) Go TO 260 

STR 

141 

C*****fciUCK,LlNG OF LEG SECT NO 3 

STR 

142 

bF = AS 

STR 

143 

N3=0 

STR 

144 

FTT=0. 

STR 

145 

00 250 I =6 » NPSG 

STR 

146 

IF (FNET(l).GT.O.) GO TO 250 

STR 

147 

N3=N3+1 

STR 

148 

FTT=FTT+FNET(I) 

STR 

149 

2b0 CONTINUE 

STR 

150 

IF (N3.EO.O) GO To 2fc>0 

STR 

151 

bF3=.2*HH*FLOAT(N 3 ) 

STR 

152 

FAVE=FTT/FLOAT(N3) 

STR 

153 

J=NPSb-N3+l 

STR 

154 

F7=F07*FCV ( J»N)/FcY0 

STR 

155 

FCR=. 385*E ( J»N) *( TC/BF3) **2 

STR 

156 

CALL BUCKNG (E(J,N) ,F7,FCR,FCY< J.N) »FTU< J»N) .NCR) 

STR 

157 

we=-FCR/<FAVE*uF)-i. 

STR 

158 

GO T.O 270 

STR 

159 

260 *6=100. 

STR 

160 

c*+***creep rate 

STR 

161 

270 WBMSl=AMINi<WBMS.WB> 

STR 

162 

DO 460 I=I*NPS6 

STR 

163 

IF (A(I).LE.O.) FnET(I)=0. 

STR 

164 

FX=FNtT(l) 

STR 

165 

PLMi=TRPLAT(AY*AX,ABS(FX) ,L,7,MPT(L»7) > 

STR 

166 

PLM 2 =TRPLAT(AY.AX # ABS(FX) ,Lf8»MpT(L.a) ) 

STR 

167 

El=PLMl/T(I»N)-20. 

STR 

168 

E2=PLM2/T(I»N)-20. 

STR 

169 

IF (ABS(El ) .LT. 30.0. AND. ABS(E2) ,LT. 30.0) GO TO 274 

STR 

1691 

EOOT(I) =0.0 

STR 

1692 

GO TO 276 

STR 

1693 

274 EDOTU)=A8S<DST/<lO.**E2-lO,**El) ) 

STR 

170 

C*****STRuCTURAL INDICES FOR THE SELECTION OF CRITICAL TRAJECTORY 

POINTSSTR 

171 

276 IF (PX.GT.O.) GO fO 280 

STR 

172 

R11=0. 

STR 

173 

K22=-FX/FcY(I»N) 

STR 

174 

R33=K22 

STR 

175 

K44=-FX/E(I»N) 

STR 

176 

RSS=SQRT(R22*R44) 

STR 

177 
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GO TO 290 

--rfcO Rll=FX/FTu(l*N) 

R222Fx/FCY( I*N) 

R33=0. 

R44=G , 

R5b=0, 

2^0 RlMd'AMAXKRIMfRU) 

R2M=AmAX1(R2M,R22) 

R3M=AMAX1 (R3M.R33) 

IF (‘'H3M.Nl.R33) Go TO 300 
1 3= I 
N3=N 
FN3-F X 

300 GO TO (3l0»350»3&0f 320*330»340> » NSEcT 
310 IF (I.GE.8) GO TO 340 
GO TO 350 

320 IF a.GE.3.AN0.I.LE.b> GO TO 340 
GO TO 350 

330 IF U.GE.3.AND.I.LE.i2> GO TO 340 
GO TO 350 

340 K4M=AMAX1 (R4M.R44) 

If (R4M.Nt.R44) GO TO 350 

14=1 

Nh = N 

FN4=Fx 

350 GO TO (390*360. 390*370. 360*390) * NSECT 
360 IF (I.GE.13) GO fo 360 
GO TO 390 

370 IF (I.GE.ll) GO To 360 
GO TO 390 

980 R5M=AMAXl(RbM,R55) 

IF (R5M.Nt.Rb5) Go TO 390 
in = l' 

N';,=N 

FNb=Fx 

590 GO TO (400*400*410*420*420*440)* NSECT 
H00 IF (I , EQ . 6 . OR . I ,£q . 7 ) GO T° 430 
GO fu 440 

410 IF (I.LE.b) GO TO 430 
GO TO 440 

420 IF (I.LE.2) GO TO 430 
GO TO 440 

430 R6M=AMAX1 (RoM*R55) 

IF (R6M.NL.R55) Go TO 440 

Iu=I 

N d =N 

FN6=Fx 

440 IF (N.EQ.l) GO TO 450 

SuMt ( I ) rSuME ( I ) +C f* ( £D0T ( I ) +E00 (I ) ) 

‘-i 50 EDO(I)=EDOT(I) 

460 CONTINUE 

IF (IST.E0.2) GO TO 470 
RETgftN 

C*»***UI_Ti‘MATE TENSION 
470 TlMS=i./(RlM*UF)-l. 

C* + ***YIEl % b STRENGTH 
Y2MS=1./R2M-1. 

C*+***ULTIMATE COMPRESSION 

IF (R3M.LE.0. ) GO TO 480 
FCU=AMIN1(1.1*FCY( I3»N3> *FTU( I3*N3) ) 


STR 178 
STR 179 
STK 180 
STR 1R1 
STR 182 
STR 183 
STR 184 
STR 185 
STR 186 
STR 187 
STR 188 
STR 189 
STR 190 
STR 191 
STR 192 
STR 193 
STR 194 
STR 195 
STR 196 
STR 197 
STR 198 
STR 199 
STR 200 
STR 201 
STR 202 
STR 203 
STR 204 
STR 205 
STR 206 
STR 207 
STR 208 
STR 209 
STR 230 
STR 211 
STR 212 
STR 213 
STR 214 
STR 215 
STR 216 
STR 217 
STR 218 
STR 219 
STR 220 
STR 221 
STR 222 
STR 223 
STR 224 
STR 225 
STR 226 
STR 227 
STR 228 
STR 229 
STR 230 
STR 231 
STR 232 
STR 233 
STR 234 
STR 235 
STR 236 
STR 237 
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C3Ms--FCU/(FN3*UF)-1. 

GO TO 490 
460 C3Ms=l00. 

C*r***buCKLING OF CORRUGATION 
490 IF (K4M.LE.0.) GO TO 540 

GO TO <500.540.540. 510.520.520) , NSEcT 
bOO TX=TCl 

GO TO 530 
-i 1 0 TX=TS 

GO TO 530 
o2 0 TX=TL 

530 F7=F07*FCY< I4.N4)/FCY0 
FCR=. 3*E( I4#N4)*Tx/R 

CALL 6UCKIjG(E<I4»N4> *F7.FcR»FCY(l4»N4> »FTU(I4,N4) .NCR) 
C4Ms=-FCR/(FN4*UF)-l. 

GO ro 550 
540 C4MS=100» 

C*****CkIfFlING OF FLANGE 

050 IF ( K 5M . L b • 0 « ) GO TO 580 

GO TO (580.560. 58 o. 560. 560*580) , NSEcT 
'->60 I - 1 b 
NrNb 

Mr 1 " 

TX= TC 

570 FCC = 1 , 385*FC Y ( I , N ) / < SQRT < FC y ( I , N ) /E < I . N ) ) *6F/TX ) ♦♦ . 808 
IF (1.1 *FCY(I.N).lT.FCC) FCC=1.1*FCY(I.N) 

IF (FTU(I.N) .LT.FcC) FCC=FTU(I.N) 

IF (M.EQ.2) GO TO 640 
F5Mb=-FCC/ (FN5*UF ) -1 . 

GO TO 590 
580 F5MS=100. 

590 IF (R6M.LE.0.) GO TO 650 

GO fO (600. 600. 610. 610.620* 650) . NSECT 
600 TX=TC+TS 
GO TO 630 
610 TX=T,S 

GO TO 630 
620 TX=ft 
630 M=2 ' 

I = l6 
N=N6 

GO TU 570 

640 F6Ms,=-FCC/<FN6*(JF)-1. 

GO TO 660 


STR 238 
STR 239 
STR 240 
STR 241 
STR 242 
STR 243 
STR 244 
STR 245 
STR 246 
STR 247 
STR 248 
STR 249 
STR 250 
STR 251 
STR 252 
STR 253 
STR 254 
STR 255 
STR 256 
STR 257 
STR 258 
STR 259 
STR 260 
STR 261 
STR 262 
STR 263 
STR 264 
STR 265 
STR 266 
STR 267 
STR 268 
STR 269 
STR 270 
STR 271 
STR 272 
STR 273 
STR 274 
STR 275 
STR 276 
STR 277 
STR 278 
STR 279 
STR 280 
STR 281 


650 FbMsrlOO. STR 282 

C*»***T0TAL CREEP STRAIN STR 283 

660 EMAx= 0 . STR 284 

DO 670 I=1»NPSG STR 285 

670 EMAx=AMAX1(£MAx,SuME(!)) STR 286 

£MS=AMIN1<T1MS,Y2MS»C3M5.C4MS»F5MS»F6MS,WBMS) STR 287 

IF (NPRT.EQ.l) CALL PftXNTK'XSS) STR 288 

WRITE (6.680) TlMs.Y2MS.C3MS.C4MS.F5MS.F6MS.WBMS.DMAX.EMS.EMAX STR 289 

680 FORMAT (//52H0***** STRESS ANALYSIS NOTE *****/STR 290 

1/8X4HT1MS.8X4HY2Ms.8X4HC3mS,8X4HC4MS,8X4HF5MS,8X4HF6MS»8X4HWBMS.8XSTR 291 
24HQMAX.9X3HEMS»8X4HEMAX/1oE12.4) STR 292 

C* »***SEL£CTI0N OF MIN M.S. STR 293 

IF (KM. EG. 2) GO TO 700 STR 294 

IF LEALL.GE.EMAX.AND.EMS.GE.o, ) GO TO 750 STR 295 

KM=2 STR 296 

DTS.010 STR 297 


Figure 1-18. Source Listing - STRESS, Contd 


1-47 


.90 AMAX=£MAX 
AMS=LMS 
rC=1C+DT 

IF <NSECT.EQ.3.0R,NS£CT.EQ.4) TS=TS+l)T 
11 = 1 

WRITE <6*770) TC»t 5 
Ar<Irt (6*760) 

M— 1 

bO TO 150 

00 IF ilALL.GE.EMAX.aNO.EMS.GE.O, ) GO TO 750 
IF (t_ALL.GE.£MAX) GO TO 7l0 
OEOT=1.E2 *(AMAx-EmAX) 
DTl=(£MAX-.9b*EALL)/0EDT 
bO TO 720 
/10 U I 1-0 , 

7 2u IF (ttoS.GE.U) oO tO 730 
uMt)T = l ,E2* (EMS-AMs ) 
uT2=< . 05“t MS ) /OMDt 
v.0 io 740 
i 30 bra-o. 

740 u f-AMAXl (LT 1 * DT 2) 

KM; j, 

oO TO 690 


STR 29 8 
STR 299 
STR 300 
STR 301 
STR 302 
STR 303 
STR -304 
STR 305 
STR 306 
STR 307 
STR 308 
STR 309 
STR 310 
STR 311 
STR 312 
STR 313 
STR 314 
STR 315 
STR 316 
STR 317 
STR 318 
STR 319 
STK 320 


750 tfRiTL (6*760) STR 321 

760 FORMAT (34H0***** END OF NOjE ***+*) STR 322 

RETURN STR 323 

HO FORMAT ( //bbH STRESS CONSTRAINTS EXCEEDED - PANEL THICKNESS RESI/ESTR 324 

lu TO /AH TC =Ffe.3*4H IN./8H TS =F6.3*4H IN./) STR 325 

E -0 STR 326 
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FUNCTION TABLE (XrXTB»YTB»N> 

TBL 

1 


this subroutine does linear interpolation! 

T8L 

2 


WHERE Y=F<X>. It WILL NOT EXTRAPOLATE. 

TBL 

3 


OIMENSION XTQ(l) !YTB(1) 

TBL 

4 



TBL 

5 


1 = 0 

TBL 

6 


IF (X.GE.XTBU) .AnD.X.LE.xTB(N) } GO TO 10 

TBL 

7 


WRITE ( 6 » 60 ) 

TBL 

8 


IAbLt=0. 

TBL 

9 


RETURN 

TBL 

10 

10 

1 = 1 + 1 

TBL 

11 


IF (X.GE.XTB(I) ) GO TO 10 

TBL 

12 


IF (YTB(I-l)-YTB(I)) 20#30'40 

TBL 

13 

20 

Y=(YTb(I)-YTB<I-l) )/(XTB(I)-XTb(I-l))*(X-XTB(I-l) )+YTB(I-l) 

TBL 

14 


OG TO 50 

TBL 

15 

30 

Y =YT b ( I ) 

TBL 

16 


GO TO 50 

TBL 

17 

40 

Y=< YTB(I-1)-YTB<I) ) / < XT8 < I >-XT6 ( 1-1 ) ) * ( XTB (I) -X ) +YT8 ( I ) 

TBL 

18 

50 

TABlE=Y 

TBL 

19 


RETuRl-i 

TBL 

20 



TBL 

21 

60 

FORMAT (26H0X ARGUMENT ERROR IN TABLE) 

TBL 

22 


END 

TBL 

23. 


Figure 1-19. Source Listing — TABLE 
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SUbKUUTINE THERMO ( ISO) 




THR 

1 

C 




THR 

2 

uIMEHSION 0< 18) ,G< 10) ,XM(l») »Wl (9) 



THR 

3 

DIMENSION A ( 20 ) , AePHA ( 99 ) ,ALT(99) ,AX(9» 

9,9) , AY (9, 9,9) .BETA (99) » 

THR 

4 

lUlSr( 9 >»£< 2 V» 99 ) » EAT <20, 99 > ,EDOT ( 20 , 99 ) 

»EMIS (9) *FCY (20,99) , 

THR 

5 

2FNEI (20) » FT ( 20 ) ,FtU( 20»99) »HlNSD<99) , MAT <9, 9) 

, MPT (9,9) ,MR(9, 18) , 

THR 

6 

3.mI ( 18) »NR(16) #P1NP (99) »Q<9> ,QC0NL<9) ,QC0NT(9) 

, QINP (99) » QNET (9) , 

THR 

7 

4RH0(y) » T ( 20 * 99 ) » TAMP < 9 , 9) , TEMP < 9 , 9 ) ,TIME<99) » 

TINSD (99) , VFACT ( 9, 18) THR 

8 

5.VINF (99) »X<9) »XX(20) ,Y(9) »Z2<20) ,TAlLW<9> 


THR 

9 

common a , At_ , alpha 

.ALT 

, AME 

, AMI ,AOFA , 

THR 

10 

lArtOu , AS #Ax »Ay 

.BATA 

,BE 

,BET A ,BF , 

THR 

11 

2fcFL ,8L , DELTA ,Dl AM 

, DIST 

,DNX 

,DNY ,DNZ , 

THR 

12 

3DST , E »EaLL »EAT 

» EDOT 

,EMIS 

,FCY ,FNET , 

THR 

13 

AFT » FTU »Fo7 , HH 

,HINS 

.HINSD 

, ICONF » IQINP , 

THR 

14 

blTUhb , I w ALT ,MaT »MPT 

.MR 

.ncolm 

.NCR ,NF , 

THR 

15 

6NI , NPSC3 » NR ,NrSG 

.NSECT 

,NS£G 

.NTKAJ , PE , 

THR 

16 

7PI ,PINP , Q ,QCWL 

.GCONT 

,01 NP 

, ONET ,R , 

THR 

17 

8RHO ,RHOI »RyE »RYI 

,SL 

,SLS 

.STAAT , STI , 

THR 

18 

9STO0H , I .TAMP ,TAU 

, TC 

,TC1 

, TEMP ,TI , 

THR 

19 

STIiv lt .TINS .TINSO »TS 

, UF 

, VFACT 

,VI » VlNF , 

THR 

20 

SwROlt. .X .XEMIi »XX 

. Y 

,zz 

, NCRC * T ALLW , 

THR 

21 

Si'll Ns »FACC »NpRT 




THR 

22 

DATA (0(1). I=1.10)/y.2809»-H, 

734,0.66859,-4. 

1877E-2.-5 .5055E-4 , 

THR 

23 

12.8367E-A.-2.125E-5.8.0162E-7, 

-1.5901E- 

8,1, 3236E-10/ 

THR 

24 

DATA ( XM ( I ) .1=1, 18) /o. .1. » 1.2*1 

•4* 1.6,1. 

8,2. ,2 

.2, 2. 4, 2. 6, 2. 8, 3. ,3 

.4THR 

25 

1*3*8, 4. 2, 4.6*5. »5o./ 




THR 

26 

DATA ( D ( I )»I=1,18)/14.,6.»1U.2, 

12.3,13.4 

,13.95 

,14. ,13. 8, 13. 45, 12. 

95THR 

27 

1*12, 4,11.9, 10.7,9,65*8.6*7.6*6 

• 6,0./ 



THR 

28 

C 




THR 

29 

C*****ENTnALPY VISCOSITY ANO DENSITY 

FUNCTIONS 


THR 

30 

FENTL(T) =2. 2864+0. 2272*T+0.1157lE-4*T*T+0.23b76E-9*T**3 

THR 

31 

FMUT (T)=2.27E-8*T**1.5/(T+198. 

6) 



THR 

32 

FMUli (E)=4.2642E-8*E**.493 




THR 

33 

Fmo 12 (E ) =2 . 8428E-7+E** . 228 




THR 

34 

FRH01 (P,E)=S.76E-5*P/E**.849 




THR 

35 

FRH02(P,E)=8.65E-6*P/E**.5»4 




THR 

36 

C*****FREESTREAM PROPERTIES 




THR 

37 

AMI=v 1/(49. 01*SORT(T1 ) ) 




THR 

38 

AM2=aMI*AMI 




THR 

39 

vI2=VI**2 




THR 

40 

AMU1=FMUT(TI) 




THR 

41 

KYI=VI*RH0I/AMUI 




THR 

42 

AII5FENTU TI ) 




THR 

43 

ST I =a II +V 12/50061. 5 




THR 

44 

C*****tFF£CTlVE ANGLE OF ATTACK 




THR 

45 

ALFsaOF A/57. 2957795 




THR 

46 

bET=BAT A/57. 2957795 




THR 

47 

CETA=COS ( ALF ) *COS ( BET ) *DNx+S IN < BET > *DNY+SIN ( ALF ) *COS (BET ) *DNZ 

THR 

48 

AOFAzASIN(CETA) 

- 



THR 

49 

IF (IwALT.EQ.1) go to 10 




THR 

50 

vJ=NCOL M 




THR 

51 

GO TO 20 




THR 

52 

10 o=l 




THR 

53 

20 DO 3u 1=1,0 




THR 

54 

30 WIU)=FENTL(TEMP(I,1) ) 




THR 

55 

IF (IC0NF.EQ.3) Go TO 550 




THR 

56 

IF (AOFA.GT. 0.612) GO TO 550 




THR 

57 

IF (AMI. GT. 1.0) GO TO 50 




THR 

58 

C*****FLAr PLATE 




THR 

59 

40 PE=PI 




THR 

60 
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VE=VI 

thr 

61 


TE=TI 

thr 

62 


EI=AII 

THR 

63 


AME=AMI 

THR 

64 


60 TO 290 

THR 

65 

50 

IF (AOFA.GE.0) GO TO 120 

THR 

66 

C*****PRANOTL MEYER EXPANSION 

THR 

67 


bETAI=SQRT(AM2-1.0) 

THR 

68 


UN1 = 140,34601*ATAn( .40825*tJETAI )-57.29578*ATAN(BETAI) 

THR 

69 


IF (AOFA+,05) 60 » 60 » 40 

THR 

70 

60 

UNE=uNl-57 ♦ 29578+AOFA 

Thr 

71 


IF (UNE-50.0) 70 » 70 » 80 

thr 

72 

70 

AiviE=-26, 30 1065/ (UNE-81. 77828) + . 78959002+. 02791663*UNE 

THR 

73 


GO TO 110 

THR 

74 

80 

IF (UNE-102.32) 9q»90,100 

THR 

75 

90 

AmE=-280.09435/(UnE-130.19996)-,89411241+8.2845071E-03*UNE 

THR 

76 


GO TO 110 

THR 

77 

100 

AME=-284 . 84664/ ( UnE-1 30 . 43933 ) -1 .0199074+8 . 6803698E-03*UNE 

THR 

78 

110 

TR=(5.0+AM2)/(5.0+AMt**2) 

THR 

79 


PR=TR**3.5 

THR 

80 


VR= l AME/AMI ) *SuRT ( TK ) 

THR 

81 


P£=PR*PI 

THR 

82 


TE=TR*TI 

THR 

83 


VE=VR*VI 

THR 

84 


EI=FENTL(TE) 

THR 

85 


GO TO 290 

THR 

86 

120 

AMSA=AMI*SIN(AOFA) 

THR 

87 


IF (AMSA.LE.0,05) GO TO 4Q 

THR 

88 


AMS2=AMSA**2 

THR 

89 


AMS3=AMSA*AMS2 

THR 

90 


REFM=VI/1086.0 

THR 

91 


RMSA=REFM*SlN(AOFA) 

THR 

92 


RMS2=RMSA+*2 

THR 

93 


KMS3=RMSA*RMS2 

THR 

94 


IF (IC0NF.EQ.2) Go TO 210 

THR 

95 

C*****WEDGE 

THR 

96 


IF (AMSA.GT.8.0) GO TO 130 

THR 

97 


EI=AII*< .9167+.32o3*AMSA+.23b*AMS2-.4484E-3*AMS3) 

THR 

98 


GO TO 140 

THR 

99 

130 

EI=AII*(1.107-.2209*AMSA+.3644*AMS2-8.462E-3*AMS3> 

THR 

100 

140 

IF (AMSA.GT.1.6) GO TO 150 

THR 

101 


PE=PI* (1.041+.693+AMSA+1. 889* AMS2-. 0661 *AMS3) 

THR 

102 


GO TO 160 

THR 

103 

150 

PE=PI*(-2.32+4.045*AMSA+l.U36*AMS2+,Ql61*AMS3) 

THR 

104 

160 

IF (RMSA.GE.0.6) G° TO 170 

THR 

105 


\/R=. 1923 + 1. 404*RMsA+1.147*RMS2+.3361*RMS3 

THR 

106 


GO TO 190 

THR 

107 

170 

IF (RMSA.GT .6,0) GO TO 180 

THR 

108 


VR= . 5958+ . 4494*RMsA+l . 838*RMS2- . 0331*RMS3 

THR 

109 


GO TO 190 

THR 

110 

180 

VR=78.03-19.58*RMSA+3,13*RMS2-.05054*RMS3 

THR 

111 

190 

VE2=VI2-1.0E6*VR 

THR 

112 


IF (VE2.GT.0.) GO TO 200 

THR 

113 


IGO=l 

THR 

114 


RETURN 

THR 

115 

200 

VE=SQRT(VE2) 

THR 

116 


GO TO 280 

THR 

117 

C*****C0NE 

THR 

118 

210 

IF (AMSA,GT.8.0) GO TO 220 

THR 

119 


EI=AI I* ( 1 . 03+ . 0827*AM5A+ . 2354*AMS2“6 . 956E-4*AMS3) 

THR 

120 
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GO TO 230 

22 u EI = AI I* ( 1 . 106- . 3685*AMSA+.3466*AMS2-7.766E-3*AMS3) 
^30 IF (AMSA.GE.1.5) GO TO 240 

PE=PI*<1.0U7+.38l6*ArtSA+1.522*AMS2-.l593*AMS3> 

GO TO 260 

240 IF (AMSA.GE.5.0) GO TO 250 

PE=PI*( .2397+1. 16l*AMSA+1.06*AMS2+.0489*AMS3) 

GO TO 260 

250 PE=PI* (-3. 182+4. 177*AMSA+.8373*AMS2+. 0216* AMS3) 

^60 IF (RMSA.GE.4.4) GO TO 270 

VR= .157+ . 75*RMSA+ . 98ol*RMs2+. 06944*RMS3 
GO TO 190 

270 VR=6. 187-1. 038*RMsA+1.4l4*RMS2-.0062*RMS3 
GO TO 190 

280 T£ = 17 ,899+4, 0675 *El-» 838 84E-4+E 1**2-, 3495E-6*EI**3 
290 IF (El, GT. 705.0) GO TO 300 
EMU=FMUT(TE) 

RHOt=pE/(TE*53.3*32.2) 

GO TO 320 

900 IF (El. GE. 1300.0) GO TO 3l0 
EMU=FMUI1(EI) 

RH0E=FRH01(PE,EI) 

GO TO 320 
.910 EMU=FMUI2(EI> 

RH0e=FRH02(PE»EI) 

920 IF (TE.GT.4860. ) GO TO 330 
00=1 .432-4 ,8oE- 5*TE 
GO TO 340 
930 OD=l .2 

340 AME=VE/S0RT(DD*PE/RH0E) 

PR=0.71 
DO 540 I=1»J 
KYE=RHOE*VE*DIST( I )/tMU 
IF (RYE.GT.l.Eb) GO TO 350 
IC = 1 

kEC=0,84 
GO TO 370 

350 IF (KYE.GT.2.E6) GO TO 360 
IC=2 

REC=0.84 

TFR=RYE/1. £6-1.0 
GO TO 370 
360 IC=3 

REC=0,89 

370 RECI=£I+REC*VE**2/50061.5 
C*****LCKERT REFERENCE ENTHALPY 

RI = 0.28*EI + 0.22*RECI+0.5*wMI> 

IF (RI.GE.1300. ) GO TO 380 
RMUrFMUIl (RI) 

RHOR=FRHOl(PE»RI) 

GO TO 390 
380 RMU=FMUI2(RI) 

RH0R=FRH02(PE*RI) 

390 RYR=RHOR*VE*DIST(I)/RMU 

IF (IC.NE.2.OR.REC.NE.0.84) GO TO 400 

KYRl=RYR 

kHOl=RHOR 

REC=o.89 

kecil=reci 

GO TO 370 


THR 121 
THR 122 
THR 123 
THR 124 
THR 125 
THR 126 
THR 127 
THR 128 
THR 129 
THR 130 
THR 131 
THR 132 
THR 133 
THR 134 
THR 135 
THR 136 
THR 137 
THR 138 
THR 139 
THR 140 
THR 141 
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THR 144 
THR 145 
THR 146 
THR 147 
THR 148 
THR 149 
THR 150 
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THR 154 
THR 155 
THR 156 
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THR 158 
THR 159 
THR 160 
THR 161 
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THR 165 
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THR 167 
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THR 170 
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THR 180 
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*00 

GO TO (410#420»420) » IC 

THR 

181 

*+10 

CF= 0.664 /SORT (RYR ) 

THR 

182 


ST=0.5*CF/PR**<2./3. UQCOnMI) 

THR 

183 


ID=1 

THR 

184 


60 TO 440 

THR 

185 

420 

IF (ITURB.EQ.2) 60 TO 520 

THR 

186 


CF=0.370/(ALOS10(RYRi )**2.584 

THR 

187 


ST=0.5*CF/PR**{2./3. )*QCONT(I) 

THR 

188 

430 

10=2 

THR 

189 

*40 

IF (IC.NE.2.0R.ID.NE.2) 60 TO 450 

THR 

190 


HwT=ST*RH0R*VE*32,2 

THR 

191 


ryr=ryrl 

THR 

192 


rhok=rhol 

THR 

193 


60 TO 410 

THR 

194 

*50 

HW=ST*RH0R*VE*32.2 

THR 

195 


IF (1C.NE.2) GO TO 460 

THR 

196 


HW=TFR*HWT+ ( 1 . U-TFR > *HW 

THR 

197 


REC 1=TFR»REC 1+ ( 1 . o-TFR ) *REO IL 

THR 

198 

*60 

IF (ICONF.NE.2) GO TO 500 

THR 

199 


GO TO ( 470 # 480 » 490 ) * IC 

THR 

200 

470 

H=1.73*HW 

THR 

201 


GO TO 510 

THR 

202 

*80 

H=1.176*HW 

THR 

203 


GO TO 510 

THR 

204 

*90 

H= (1.73-0. 554*TFR)*Hw 

THR 

205 


GO TO 510 

THR 

206 

900 

H=Hw 

THR 

207 

91U 

0(I)=H*(RECi-wI(I) ) 

THR 

208 


GO TO 540 

THR 

209 


♦SPALOING-CHI 

THR 

210 

920 

Dl=wl(I)/EI 

THR 

211 


□2=0.2*REC*AME**2 

THR 

212 


03=1 . 0+D2-U1 

THR 

213 


04=S0RT( 03**2+4.0*01*02) 

THR 

214 


D5=ASIN ( ( 2 . 0*D2-D3 ) /U 4 ) +ASIN ( D3/D4 ) 

THR 

215 


FC=(D5/S0RT(Q2) )**-2 

THR 

216 


FR=(RECI/WI ( I) )**0.772/Dl**0.702 

THR 

217 


FX=FR/FC 

THR 

218 


D6=AL0G(FX*RYE) 

THR 

219 


07=1.0 

THR 

220 


08=0.0 

THR 

221 


DO 530 K=2 * 10 

THR 

222 


D7=D6*D7 

THR 

223 

930 

D8=D8+G(K)*D7 

THR 

224 


CF=(EXP(08+G(1) ) )/FC 

THR 

225 


SS=l.+5.*SQRT(FC*CF/2, ) * (PR-1 ,+ALOG( (5,*PR+1. )/6. ) ) 

THR 

226 


ST=CF*QC0NT(I)/(2,*SS) 

THR 

227 


RHOR=RHOE 

THR 

228 


GO TO 430 

THR 

229 

940 

CONTINUE 

THR 

230 


GO TO 710 

THR 

231 

950 

PR=0 .71 

THR 

232 


AOFS=l . 57079-AOFA 

THR 

233 


XMI=AMI*COS(AOFS) 

THR 

234 


XM2=XMI**2 

THR 

235 


XMF=7.*XM2-1. 

THR 

236 


IF (IC0NF.NE.3.AND.XMF.GT.0) GO TO 570 

THR 

237 

c*****kemp-riddell 

THR 

238 


H=3.16615E-4*S0RT(RH0I/0IAM)*VI**1.15 

THR 

239 


IF (IC0NF.EQ.3) GO TO 560 

THR 

240 
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H=0,75*H*(COS(AOFS) >**1.2 

THR 

241 


IF (AROD.LT.O.OOOl) 60 TO 5&0 

THR 

242 


H=H*SQRT ( 0 .745+3. 14* AROD) /I .5215 

THR 

243 

360 

IS = 1 

THR 

244 


GO TO 590 

THR 

245 

;*****bECKWITH-GALLAGHER 

THR 

246 

570 

FAM=(1.0+.2*AM2> 

THR 

247 


FXM=(1.0+.2*XM2> 

THR 

248 


PRA=(l,2*XM2)**3.5*(6,/XMF>**2.5 

THR 

249 


KMU=FMUT(TI*FXM> 

THR 

250 


6MU=FMUT(TI*FAM) 

THR 

251 


XMU1=RMU/SMU 

THR 

252 


XMU2=SMU/AMUI 

THR 

253 


VGRD=2./XMI*SQRT(FXM)*SQRT< <l.-l./PRA)/0.7> 

THR 

254 


ST=0. 03231/PH** ( 2. /3. )*(COS(AOFS)*XMU2*VGRO/RYI/DIAM)**0 

.2* (SIN ( AOTHR 

255 

1FS ) )**0.6*(XMUl*PRA/f-'XM)**0.a 

THR 

256 


REC=0. 974+0. 051*AOFS-0.213*AUFS**2+Q.1*AOFS**3 

THR 

257 


H=ST*RH0I*VI*32.174 

THR 

258 


IF (AROD.LT.O.OOOl) 60 TO 580 

THR 

259 


H=H* ( (0. 74b+3.14*AR0J)/2.3l5) **0 .2 

THR 

260 

360 

IS=2 

THR 

261 

C*****L0CaL pressure and heat FLUX 

THR 

262 

390 

IF (AMI. LE. 1.0) GO TO 670 

THR 

263 


TW=TEMP(1»1) 

THR 

264 


C8AbE=. 01 132*AMI-. 3008/ (AMI-. 5434)-. 05252 

THR 

265 


IF (AMI. GE. 6.0) CBASC.r-l.43/AM2 

THR 

266 


DO 600 K=l#la 

THR 

267 


IF (AMI.LE.XM(K) ) GO TO 6l0 

THR 

268 

U00 

CONTINUE 

THR 

269 


CLOvEzO. 

THR 

270 


GO TO 620 

THR 

271 

610 

CLOvE=(D(K-l)-D(K) ) * ( AMI- X M ( K-l ) ) / ( XM ( K ) -XM ( K-l ) ) -D ( K-l ) 

THR 

272 


CL0vE=CL0vE/57. 29578 

THR 

273 

620 

IF (TW.LE.O.) GO TO 630 

THR 

274 


TWTI=TW/TI 

THR 

275 


GO TO 640 

THR 

276 

o30 

TWTI=1.+.17*AM2 

THR 

277 


1u/=TI*TWTI 

THR 

278 

640 

CHAPzSQRT ( TWT I ) * ( T 1 + 192 , ) / ( T w + 192 , ) 

THR 

279 


CJ=1.721*TWTI+0.132*AM2 

THR 

280 


ZD=SURT< AM2-1.0) 

THR 

281 


FACt=SQRT(CHAP)*Cj/(2.*SQRT(KYI ) ) 

THR 

282 


Z13=G.734*ZD*ZD/AM2 

THR 

283 


DELSTR=.524 

THR 

284 


TEMPL=.577*DIST(I) 

THR 

285 


IF (TEMPE.LE.FACT) GO TO 6^0 

THR 

286 


OELSTR=ATAN (FACT/OIS V ( 1) ) 

THR 

287 

650 

ETAzAOFA+DELSTR 

THR 

288 


IF (ETA.GE. 1.571) ETA=1.57l 

THR 

289 


CETA=SIN(ETA) 

THR 

290 


IF (CETA.GT.O.) GO TO 660 

THR 

291 


CPEzCBASE 

THR 

292 


IF (ETA.LE. CLOVE) GO TO 680 

THR 

293 


CPE=( (l.-.2*ABS(ZD*CETA) )**7-l. )/( ,7*ZD**2) 

THR 

294 


60 TO 680 

THR 

295 

o60 

CPE=CETA*CETA*(Z13+S0RT(1,2+1,/(ZD*CETA)**2) ) 

THR 

296 


GO TO 680 

THR 

297 

o70 

CPE=SIN(AOFA)**2 

THR 

298 

680 

PE=CPE*RH0I*VI**2/64.4+PI 

THR 

299 


00 700 I=1*J 

THR 

300 
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IF (IS. EG. 2) GO TO 690 THR 301 

u(I)=H*(STl-WI(I) )*QCONL(I) THR 302 

GO TO 70U THR 303 

690 G(I)=h*(REC*STI-WI(I) )*QCONT(I) THR 304 

/00 CONTINUE THR 305 

710 IF (IWALT.EQ.2) GO TO 730 THR 306 

DO 720 I=l»NCOLM THR 307 

720 Q(I)=Q(1) THR 308 

730 RETURN THR 309 

END THR 310 
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FUNCTION TftPLAT ( A » B » C , I » J* K > 
UIMENSION A (9,9,9) »B 19/9/9 ^ 
iF (C.LE.8U/J/1) ) e ° T0 30 
IF (C.GE.Bd * J»K) ) G Q TO 40 
00 10 L=1#K 

IF (b(I»J*L)-C) 10/10,20 



1 ( I » J/L-l ) > 
RETURN 


30 trPlAT=A(I»J»1) 
return 

uo TRPLAT=A ( I / J*K) 
RETURN 
ENU 


TRP 

TRP 

TRP 

TRP 

TRP 

TRP 

TRP 

l) )/tBli/ J#L)-B(X*J»L-1> >*(C-BTRP 

TRP 

TRP 

TRP 

TRP 

TRP 

TRP 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 
15 - 
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SUBROUTINE wttps 
common/wta/ 


WTT 

WTT 


3*KCC(5*21) * TIME (7) * TMAT< 3) *DI AMA < 6) * WTNUT (6 > # TBTABL ( 6 ) 

4 t KCOSwT ( 100*3) 

COMMGN/ZERO/ 

1 topwt,tacwt,tmawt*ttshr#ttlbhr,ttlaco,ttvcos,ttfcos,ttmcos, 
2TASyC0»LABHR» LACOST,VCOST#TSTDhR»TLACOS,TVCOST,TFCOST 

COMMON/COMTOt/ CF*K1*STPS,AT*K2*BT»TDH*C*E6TH,NFTA*EFTS.NPA*ETA, 
1EFA*NFLTS*TUNWT 
real Kl»K2 


WTT 

WTT 

WTT 


WTT 

WTT 


KSETUP * KRUN • KCC • MUV * MA wT r KMUV 
KCOSWT 

IDFNG1, IDFNG2# IORING, LENGTH* LBMLA* LBMLC * LBMSA, LBMSC 
LCORN» LOOUBR# LEN* L^ANL* LPOST* LRIBL* LRIBS* LSEAL 
LSTFNR, LTUB£» LTUBER* NXA, NTA 
LAR ATE * LABHR , LACOST * MFCOS » MATCOS 


REAL 
REAL 
REAL 

real 

REAL 
REAL 
J=0 

LEN=LENGTH/12. 

wIO=WIDTH/12. 

initialize insulation variables 

WT INS1-0 
WTINS2=0 
WTINS3-0 

INITIALIZE PANEL VARIABLES 

WTCORR=0 

WMCORR=0 

WTEOG2=0 

WMEDG2=0 

WTEDG3=0 

WMEDG3=0 

WTHYCB=0 

WMHYCB=0 

WTRI6S=0 

WMRIBS=0 

WTSKIN=0 

WMSKIN=0 

INITIALIZE STRUCTURE VARIABLES 

wtbmla=o 

WMBMLA=0 

WTBMLC=0 

WM6MLC=0 

WTBMSA=0 

WMBMSA=0 

wtbmsc=o 


WTT 

WTT 

WTT 


WTT 

WTT 


WTT 

WTT 


WTT 

WTT 

WTT 

WTT 

WTT 

WTT 

WTT 

WTT 


WTT 

WTT 

WTT 

WTT 


1 

2 


lA 

* B 

•CHORD 

• E1RIB 

•E2RIB 

•E3RIB 

9 

WTT 

3 

2HBEAMA 

* HFNG1 

•HFNG2 

• HRIB 

•HRING 

•IDFNG1 

9 

WTT 

4 

3I0FNG2 

* K INOP 

•KINDS 

•LENGTH 

•DLPANL 

•LTUBE 

9 

WTT 

5 

4NR IBS 

* ODPOSR 

•ODPOST 

•ODRING 

•RADIUS 

•tbmla 

9 

WTT 

6 

5TBMLC 

• TBMSA 

•TBMSC 

•TCORE 

•TCORN 

•TDOUBC 

9 

WTT 

7 

6TD0UBP 

* TEDGE 

•TFNGl 

•TINS1 

•TINS2 

•T1NS3 

9 

WTT 

8 

7TPLATE 

* TPOST 

•tirib 

•T2RIB 

•TWRIB 

•TRIBL 

9 

WTT 

9 

8TRIBS 

* TRING1 

•TRING2 

•TSEAL 

•TSKIN1 

•TSKIN2 

9 

WTT 

10 

9TTUBE 

•WIDTH 

•wbeama 

* WBMLC 

•wbmsc 

•OWPANL 

t 

WTT 

11 

SWPOST 

• WRIBL 

•WRIBS 

» PBM 

•PCORE 

•PEDGE 

9 

WTT 

12 

SPINS1 

• PINS2 

•PINS3 

•PPOST 

• PRIB 

•PSEAL 

9 

WTT 

13 

SPSKINl 

•PSKIN2 

•ptube 

• GBOLT 

•GCLAMP 

•GINSRT 

9 

WTT 

14 

SGINSUL 

• GNUTPL 

•gwash 





WTT 

15 

common/wtcost/ 






WTT 

16 

iklic 

*N 

• ACWT 

»KT 

•itl *len, 

WID* LTUBER 

WTT 

17 

2 * MAWT *KK 

• AOP (7*7) 

,KMUVll0p»3) 

•KSETUP ( 

100*21) *KRUN( 100*21) 


WTT 

18 


19 

20 
21 


WTT 22 
WTT 23 


24 

25 


WTT 26 
WTT 27 


28 

29 

30 


WTT 31 
WTT 32 
WTT 33 
WTT 34 


35 

36 


WTT 37 
WTT 38 


39 

40 


WTT 41 
WTT 42 


43 

44 

45 

46 

47 

48 

49 

50 


WTT 51 
WTT 52 


53 

54 

55 

56 


WTT 57 
WTT 58 
WTT 59 
WTT 60 
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c 


c 


WMBMSC=0 


»TCORN=0 

WMCORN=0 

WTHINA=0 

WMHINA=0 

WTHINB=0 

WMHINB=0 

WTHINC=0 

wMHINC=0 

WTINS=0 

WMINS=0 

WTP0SR=0 

WMPOSR=0 

wTPOSA=0 

WMPOSA=0 

wTPOSB=0 

WMPOSB=0 

WTPOSC=0 

WMPOSC=0 

WTS£AL=0 

wMS£AL=0 

wTFASA=0 

WMFASA=0 

WTFAS8=0 

WMFAbB=0 

WTFASC=0 

WMFASC=0 

INITIALIZE TOTAL VARIABLES 
WTINSL=0 

wtpanl=o 

fcMPANL=0 

WTSTKrO 


WMSTR=0 

GENERAL TERMS USED THROUGHOUT 

PI=3.1416 

PI4=.7854 

DIABH1=.19 

U1ABH2=.50 

UIAPTH=.50 

0IARGH=,19 

0IAp0H=.19 

DIARGH=.19 

EEOGE=1.20 

HPLATE=.50 

LDOuBR=2.00 

R=.17 

TBRAZE=.008 
TPLUG=.25 
WDOUbR=1.50 
wDOubPzl .00 

IF (RADIUS. EQ.O.) CIRCUM=0 
IF (RADIUS. EQ.O. ) GO TO 10 

CIKCUM=RADIUS*ACOs(l-(CHORD**2)/(2.*RADIUS**2) ) 
10 CONTINUE 
HPOST=WPOST 

IDRING=IDFNG2-2,*TTUBE-2.*< IDFNG2-0DP0SR) 

LBMLA=LENGTH-1.75 

LBMLC=LENGTH-.75 

LBMSA=WIDTH-1,75 

LBMSC=WlDTH-.75 


WTT 61 
WTT 62 
WTT 63 
WTT 64 
WTT 65 
WTT 66 
WTT 67 
WTT 68 
WTT 69 
WTT 70 
WTT 71 
WTT 72 
WTT 73 
WTT 74 
WTT 75 
WTT 76 
WTT 77 
WTT 78 
WTT 79 
WTT 80 
WTT 81 
WTT 82 
WTT 83 
WTT 84 
WTT 85 
WTT 86 
WTT 87 
WTT 88 
WTT 89 
WTT 90 
WTT 91 
WTT 92 
WTT 93 
WTT 94 
WTT 95 
WTT 96 
WTT 97 
WTT 98 
WTT 99 
WTT 100 
WTT 101 
WTT 102 
WTT 103 
WTT 104 
WTT 105 
WTT 106 
WTT 107 
WTT 108 
WTT 109 
WTT 110 
WTT 111 
WTT 112 
WTT 113 
WTT 114 
WTT 115 
WTT 116 
WTT 117 
WTT 118 
WTT 119 
WTT 120 
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o o 


c *** 
c *** 
c *** 
c 

c *** 
c 


*** 


S=R+.365*H8£AMA 


WTT 121 


LC0RN=2 , *HPLAT£+2 , *S 
lpanl=length-dlpanl-a 

LPOST=TI(MSl + TlN52+TIiMS3+8-.30 

LR1BL=LBMLC 

LRIBS=LBMSC 

LSEALzWIDTH 

LSTFNR=LPOST-.50 

LTUB£R=T1NS1+TINS2+T1NS3+B 

NXA= ( LPANL+OLPANL-4 . *DI ABhl ) / ( 8 , *DI AtjHl ) 

NYA=(LSEAL-4.*0IABH1)/(8.*UIABH1) 

NX=NXA+.5 

NY=NYA+.5 

nxa=nx 

nya=ny 

ODFnG1=ODPOST+,60 

ODFNG2=IOFNG2+.50 

0DTuBE=0DP0ST-2.*TP0'iT 

TFNG2=TFNG1 

rtPANL=WIQTrt-UWPANL-A 

wBMLA=2.*(WBEAMA+R-S+( (S-R)**2+HBEAMA**2)**.5>+,32 
WBMSA=WBMLA 

WCORN=R+S+ ( ( S-R ) **2+HBEAMA**2 ) ** . 5 

WCORR=WPANL+NRIBS*(C1RCUM-CHORO) 

wPLATE=WBEAMA+2.*R 

wSEAL— A+ « 5 

WSTFNR=WP0ST/3. 

WTBRZ1=LPANL*<NRIBS+1)*.5*TBRAZE*PSKIN2 

WTBRZ2- ( LBMLA*. 38-2. *NXA*pl4*DI ABH1**2 ) *TBRA2E*PBM 

WTBRZ3=(LD0UBR*WD0UBK-PI4*0IABHi**2)*TBRAZE:*PBM 

wTBRZ4=(L8MSA*.38-2.*NYA*pl4*DlABHl*«2>*TBRAZE*PBM 

W TBRZ5= ( 4 . * < LCORN* ( R+S ) -R**2-S**2 ) +WQ0UBP**2-PI4*D I APGH**2 


WTT 122 
WTT 123 
WTT 124 
WTT 125 
WTT 126 
WTT 127 
WTT 128 
WTT 129 
WTT 130 
WTT 131 
WTT 132 
WTT 133 
WTT 134 
WTT 135 
WTT 136 
WTT 137 
WTT 138 
WTT 139 
WTT 140 
WTT 141 
WTT 142 
WTT 143 
WTT 144 
WTT 145 
WTT 146 
WTT 147 
WTT 148 
WTT 149 
WTT 150 
WTT 151 
)*TBRAZEWTT 152 


1*P6M 

WTBRZ6=2 . *pi*oopost*tpost*tbraze*ppost 
WTBRZ7=2.*PI*0DP0sT»LTUBE*TBRAZE*PP0ST 
WTBRZ8= ( LPANL+WPAnL-BEDGE ) *E£DGE*TBRAZE*PEDGE 
WTBRZ9=NRIBS*(LPAnL-£EDGE)*<E2RIB+TWRIB)*TBRAZE*PRIB 
IF (E2RIB.EQ.0. ) WTBRZ9=0 

WTBR10=2 . *WPANL* ( EEOGE-TEOGE) *TBRAZE*PEDGE 

WTBR11=4 . * ( WP0ST*hP0ST-2.*PI4*DIAP0H**2 )*TBRAZE*PPOST 

WTBR12=LBMLC*TRIBl*TBRAZE*PBM 

WTBR13=LBMSC*TRIBs*T8RAZE*PBM 

WTBRI4=PI * ( 00P0SR-2 . *TTU8E ) *HR lNG*TBRAZE*PPOST 

WTBR15=PI*0DP0SR*HFNG2*TBRAZ£*PP0ST 

WT8R16=PI*0DP0ST*TRI N G1*TBRAZE*PP0ST 

WTBR17=PI*0DP0ST*hFNG1*TBRAZE*PP0ST 

WTBRie=0 

N=0 

ITL=0 

EQUATIONS FOR INSULATION 


EQUATION FOR INSUL 1 

IF tTINSl.EQ.O) GO TO 20 
WTINS1 =LENGTH*WIDtH*TINS1*PINS1/1728, 
IF (TINS2.EQ.0) GO TO 20 

EQUATION FOR INSUL 2 


WTT 153 
WTT 154 
WTT 155 
WTT 156 
WTT 157 
WTT 158 
WTT 159 
WTT 160 
WTT 161 
WTT 162 
WTT 163 
WTT 164 
WTT 165 
WTT 166 
WTT 167 
WTT 168 
WTT 169 
WTT 170 
WTT 171 
WTT 172 
WTT 173 
WTT 174 
WTT 175 
WTT 176 
WTT 177 
WTT 178 
WTT 179 
WTT 180 
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no. non o o o o n non., no 


C 


*** 


*** 

20 


30 


*** 

40 


**% 

50 


**% 

60 




, ■ 

WTT 

181 

*TInS2=LENGTH*wI0tH*TINS2*PINS2/1728. 

WTT 

182 

IF (TINS3.EQ.0) GO TO 20 


WTT 

183 




WTT 

184 

EQUATION FOR INSUL 3 


WTT 

185 




WTT 

186 

rtTlNS3=LENGTH*WlDTH*TINS3*PINS3/1728. 

WTT 

187 




WTT 

188 

total insulation wt 


WTT 

189 




WTT 

190 

WTINSL=WTINS1+WTINS2+WTINS3 


WTT 

191 

ACWT=WTINSL 



WTT 

192 

mawt=wtinsl 



WTT 

193 

KK=97 



WTT 

194 

KT = 1 



WTT 

195 

Nrl 



WTT 

196 

KLlC=0 



WTT 

197 

IF (ACWT.GT.0. 

) CALL COST 


WTT 

198 

IF (ACWT.GT.0) 

itl=i 


WTT 

199 

ACWT-WTINSl 



WTT 

200 

mawt=wtinsi 



WTT 

201 

KK=91 



WTT 

202 

KT=1 



WTT 

203 

N=2 



WTT 

204 

klic=i 



WTT 

205 

IF (ACWT.GT.0. 

) CALL COST 


WTT 

206 

ACWT=WTINS2 



WTT 

207 

MAWT=WTINS2 



WTT 

208 

KK=92 



WTT 

209 

KT-1 



WTT 

210 

N=3 



WTT 

211 

IF (ACWT.GT.0. 

) CALL COST 


WTT 

212 

ACWT=WTINS3 



WTT 

213 

MAwT=WTINS3 



WTT 

214 

KK=93 



WTT 

215 

KT=1 



WTT 

216 

N=4 



WTT 

217 

KLIC=2 



WTT 

218 

IF (ACWT.GT.0. 

) CALL COST 


WTT 

219 

IF ( (KlNOP.LT • 

1) .OR. (KINDp.GT ,4 ) ) 

GO TO 140 

WTT 

220 




WTT 

221 

FORTRAN STATEMENT NUMBER ASSIGNMENTS FOR PANELS 

WTT 

222 

CONTINUE 



WTT 

223 

GO TO (40.50.60). KINDP 


WTT 

224 




WTT 

225 

TYPE 1 CONSTRUCTION FOR PANELS 

( type d 

WTT 

226 




WTT 

227 

CONTINUE 



WTT 

228 

J=J+1 



WTT 

229 

GO TO (70 . 120 » 

130). J 


WTT 

230 




WTT 

231 

TYPE 2 CONSTRUCTION FOR PANELS 

(TYPE 2) 

WTT 

232 




WTT 

233 

CONTINUE 



WTT 

234 

J=J + i 



WTT 

235 

GO TO (80.100. 

130). U 


WTT 

236 




WTT 

237 

TTPl 3 CONSTRUCTION FOR PANELS 

(TYPE 3) 

WTT 

238 




WTT 

239 

CONTINUE 



WTT 

240 
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ooo ooo o n o ooo r, n r 


J=J+1 
GO TO 


C 

c 

c 


(90, llu, 120,130) , J 


*** 

*** 

*** 

*** 

70 


80 


EQUATIONS FOR PANELS 

EQUATION FOR CORRuGNS (CORRUGATIONS) 

CONTINUE 

rfTCOKR=LPANL*WC0RR*TSKIN2*PSKIN2+WTBRZl 
WMCORR=(LENGTH+l. )*< WCORR+1 . )*(TSKIN2+.005)*PSKIN2 
GO TO 30 


*** EQUATION FOR EDGES (EOGE MEMBERS 2) 


WTT 241 
WTT 242 
WTT 243 
WTT 244 
WTT 245 
WTT 246 
WTT 247 
WTT 248 
WTT 249 
WTT 250 
WTT 251 
WTT 252 
WTT 253 
WTT 254 

CONTINUE WTT 255 

WTEDG2=2 . * ( LPANL+WPANL+4 . *TEDGE-2 . *EEDGE ) * ( TCORE+EEDGE ) *TEDGE*PEDGWTT 256 
1E+WTBRZ8 WTT 257 

WME(jG2 = 2 • * (LPANL+ ,5+WPANL+»5) * ( TCORE+EEDGE+, 25) * (TEDGE+. 005) *PEDGEWTT 258 
GO TO 30 WTT 259 

WTT 260 

♦** EQUATION FOR EDGES (EDGE MEMBERS 3) WTT 261 

WTT 262 

90 CONTINUE WTT 263 

wTEDG3=2.*WPANL*(hRIO+TEDGE+EEDGE)*TEDGE*PEDGE+WTBR10 WTT 264 

wMEUG3=2 .* ( WPANL+1 . > * < HRlB+TEDGE+EEDGE+,25 ) * (TEDGE+.005)*PEDGE WTT 265 

GO TO 30 WTT 266 

WTT 267 

*** EQUATION FOR HONEyCOMB WTT 268 

WTT 269 

100 CONTINUE WTT 270 

IF (KINDS. EQ.l) WTHYCB=LPANL*WPANL*TSKIN2*PSKIN2+(LPANL+DLPANL)*tWWTT 271 
1PANL+DWPANL)*TSKIN1*PSKIN1+(LPANL-EEDGE)*(WPANL«EEDGE)*TC0RE*PC0REWTT 272 
2-NXA*Pl4*CIABHl**2*TSKINl*PSKINl+WTBR18 WTT 273 

IF (KINDS. EQ. 2) WTHYCb=LPANL*WPANL*TSK IN 2*PSK IN2+ ( LPANL+DLPANL ) * ( WWTT 274 
IP ANL+DWP ANL ) *TSK I Nl*PSK IN1+ ( LP ANL-EEDGE ) * ( WPANL-EEDGE ) *TCORE*PCOREWTT 275 
2-4.*PI4*DlAPTH**2*TSKlNl*PSKINl+WTBRi8 WTT 276 

IF (KINDS. EQ. 3) WtHYCB=LPANL*WPANL*TSK IN2*PSK IN2+ ( LPANL+DLPANL ) * ( WWTT 277 

1PANL+DWPANL ) *TSK lNl*PSK IN j+ ( LPANL-EEDGE ) * ( WPANL-EEDGE ) *TCORE*PCOREWTT 278 
2-Pl4#DlARGH**2*T5KlNl*PSKlNi+WTBRl8 WTT 279 

wMHYCB=LP ANL*WPANL* ( TCORE+ . 2b ) *PCORE+ ( LPANL+1 , ) * ( WPANL+1 , ) * ( TSKIN2WTT 280 
1+ . 005 ) *PSK IN2+ (LPANL+DLPANL+1 . ) * ( WPANL+DWPANL+1 . ) * (TSKIN1+. 005) *PSWTT 281 
2KIN1 WTT 282 

GO TO 30 WTT 283 

WTT 284 

+** EQUATION FOR RIBS WTT 285 

WTT 286 

110 CONTINUE WTT 287 

WTRIBS=NRIBS* (LPAnL-EEDGE )*(E1RIB*T1RIB+E2RIB*T2RIB+E3RIB*T1RIB+HRWTT 288 
1IB*TWRIB)*PRIB+WTBRZ9 WTT 289 

wMRIBS = NRIBS*LPANl* (E lRlB*(TlRIB+,Q05) +E2RIB* (T2RIB+, 005) +E3RIB* ( TWTT 290 
llR!B+.005)+(HRIB+,l)*(TWRlB+.005) )*PRIB WTT 291 

GO TO 30 WTT 292 

WTT 293 

*** EQUATION FOR SKIN WTT 294 

WTT 295 

120 CONTINUE WTT 296 

IF (KINDS, EQ.l) WTSKIN=( (LPANL+DLPANL) *(WPANL+DWPANL)-(NXA*PI4*DIAWTT 297 

itSHl**2) )*TSKIN1*PSKIN1 WTT 298 

IF (KINDS, EQ, 2) WTSKIN=( (LPANL+DLPANL>*(WPANL+DWPANL)-(4,*PI4*DIAPWTT 299 

1TH**2) )*TSKIN1*PSKIN1 WTT 300 
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c 

c 


c 


IF (KINDS. EQ. 3) WtSKIN= ( < LPANL+DLPANL > * (WPANL+DWPANL)- ( Pl4*DI ARGH*WTT 301 


1*2) )*TSKIN1*PSKINi 

WMSK IN= ( LEN6TH+ . 1 ) * ( VDIDTH+ . 1 ) * ( JSKIN1+ . 005 ) *PSK INI 
GO TO 30 


*** EQUATION FOR TOTAL PANEL 


130 CONTINUE 

WTPANL=WTC0RR+wTEDG2+WTEDG3+wTHYCB+WTRIBS+WTSKIN 
»(MPANL=WMC0RR+WMEdG2 + WMEDg3+WMHYCB+WMRIBS+WMSKIN 

acwt=wtpanl 

MAWT=WMPANL 

KK=9d 

N=b 


KLIC=0 

IF (ACWT.GT.0.) call COST 
IF (ACWT.GT.0) ITL=1 
acwt=wtcorr 

MAWT=WMCORR 

KK=2 

KT = 1 

N=b 

KLIC=1 

if (mcwt.gt.o.) call cost 

ACWT=WTEDG2 

MAWT=WMEDG2 

KK-1 

KT=4 

N=7 

IF (ACWT.GT.0.) CALL COST 

ACWT-WTEDG3 

MAWT=WMEDG3 

KK = 1 

KT=2 

N=7 


IF (ACWT.GT.0.) call cost 

acwt=wthycb 

mawt=wmhycb 

KK=51 
KT = 1 
N=6 

IF (ACWT.GT.0.) Call cost 
acwt=wtribs 

MAWT=WMRIBS 

KK=5 

KT=NHIBS 

N=9 

IF (ACWT.GT.0.) call cost 
acwt=wtskin 

MAWT=WMSKIN 

KK=2 

KT=1 

Nsio 

KLIC=2 

IF (ACWT.GT.0.) CALL COST 

FORTRAN STATEMENT NUMBER ASSIGNMENTS FOR STRUCTURE 
J=0 


140 CONTINUE 

IF ( (KINDS. LT.l) .OR. (KINDS. GT. 4) ) GO TO 360 
GO TO <150*160.170) » KINDS 


WTT 302 
WTT 303 
WTT 304 
WTT 305 
WTT 306 
WTT 307 
WTT 308 
WTT 309 
WTT 310 
WTT 311 
WTT 312 
WTT 313 
WTT 314 
WTT 315 
WTT 316 
WTT 317 
WTT 318 
WTT 319 
WTT 320 
WTT 321 
WTT 322 
WTT 323 
WTT 324 
WTT 325 
WTT 326 
WTT 327 
WTT 328 
WTT 329 
WTT 330 
WTT 331 
WTT 332 
WTT 333 
WTT 334 
WTT 335 
WTT 336 
WTT 337 
WTT 338 
WTT 339 
WTT 340 
WTT 341 
WTT 342 
WTT 343 
WTT 344 
WTT 345 
WTT 346 
WTT 347 
WTT 348 
WTT 349 
WTT 350 
WTT 351 
WTT 352 
WTT 353 
WTT 354 
WTT 355 
WTT 356 
WTT 357 
WTT 358 
WTT 359 
WTT 360 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 

c 

c 


c 

c 

c 


c 

c 

c 


170 


*** 

*** 

*** 


WTT 361 
WTT 362 
WTT 363 
WTT 364 
WTT 365 
WTT 366 
WTT 367 
WTT 368 
WTT 369 
WTT 370 
WTT 371 
WTT 372 
WTT 373 
WTT 374 
WTT 375 
WTT 376 
WTT 377 
WTT 378 
WTT 379 
WTT 380 
WTT 381 
WTT 382 
WTT 383 
WTT 384 

CONTINUE WTT 385 
WTBMLA=(LRMLA*wBMlA-PI4*( (2,*NXA+1, )*DIABH1**2+2.*DIABH2**2) ) *TBMLWTT 386 


*** TYPE A CONSTRUCTION FOR STRUCTURE 

150 CONTINUE 
U— J+l 

CO TO (180*200*220*230* 280 *310*320*350)* J 

*** TYPE 8 CONSTRUCTION FOR STRUCTURE 

160 CONTINUE 
J=U+1 

GO TO (240*260*290*330*350) * J 
*** TYPE C CONSTRUCTION FOR STRUCTURE 


CONTINUE 

J=J+1 

CO TO (190*210*250*270*300*340*350)* 
EQUATIONS FOR STRUCTURE 


*** EQUATION FOR BEAM LN A (LONG BEAM A) 


180 


C 

C 

c 


c 

c 

c 


1A*PBM+(LD0UBR*WD0uBR-PI 4*0IA6H1**2)*TD0UBC*PBM+WTBRZ2+WTBRZ3 
WMBMLAs (LBMLA+1 . ) * ( WBMLA+l • ) *TBMLA*P bM 
GO TO 140 

*** EQUATION FOR BEAM LN C (LONG BEAM C> 


190 CONTINUE 

wT8MLC=LBMLC*WBMLC*TbMLC*PbM+LRIBL*WRlBL*TRlBL*PBM+WTBRl2 
WMBMLC= ( LBMLC+1 , ) * ( WOMLC+1 . ) *TBMLC*PBM 
GO TO 140 

*** EQUATION FOR BEAM SH A (SHORT BEAM A) 


WTT 387 
WTT 388 
WTT 389 
WTT 390 
WTT 391 
WTT 392 
WTT 393 
WTT 394 
WTT 395 
WTT 396 
WTT 397 
WTT 398 
WTT 399 
WTT 400 
WTT 401 
WTT 402 
WTT 403 
WTT 404 
WTT 405 
WTT 406 
WTT 407 
WTT 408 
WTT 409 
WTT 410 
WTT 411 
WTT 412 
WTT 413 

220 CONTINUE WTT 414 

WTC0RN=(WD0UBP**2-PI4*DJAPGH**2)*TD0UBP*PBM+(2.*WPLATE**2+8.*WPLATWTT 415 
1E*HPLATE-PI4*(DIAPGH**2+0IAPTH**2) )*TPLATE*PBM+4,*(LC0RN*WC0RN-R**WTT 416 
22-S**2)*TC0RN*PBM+WTBRZ5 WTT 417 

WMCORN= ( WD0UBP+ , 25 ) *»2*TD0UBP*PBM+2 . * ( WPLATE+2 .+HPLATE+ . 5 ) **2*TPLAWTT 418 
1TE*PBM+4.*(LCORN+,5)*(WCORN+,25)*TCORN*P0M WTT 419 

GO TO 140 WTT 420 


200 CONTINUE 

WTBMSA=(LBMSA*WBMsA~PI4*2,*NrA*DIA8Hl**2)*TBMSA*PBM+wTBRZ4 
WMBMSA= ( LBMSA+1 . ) * ( WBMSA+1 . ) *TBMSA*PbM 
GO TO 140 

*** EQUATION FOR BEAM SH C (SHORT BEAM C) 

210 CONTINUE 

WTBMSC=LBMSC*WBMSC*TBMSC*PBM+LRIBS*WRIBS*TRIBS*PBM+WTBR13 
WMBMSC=(LBMSC+1, )*(WBMSC+1. )*TBMSC*PBM 
GO TO 140 

*** EQUATION FOR CORNERS 
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c 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

L 


*** EQUATION FOR INSERTS (HONEYCOMB INSERTS A) 
^30 CONTINUE 

IF (MNDP.NE.2) GO TO 140 

WTH1NA=NXA*GINSRT/100. 

WMHINA=WTHINA 
GO TO 140 

*** EQUATION FOR INSERTS (HONEYCOMB INSERTS B) 
240 CONTINUE 

IF (MNDP.NE.2) GO TO 140 
\nTHINB=4.*GINSRT/10 0. 

WMHINB=WTHINB 
GO TO 140 

*** EQUATION FOR INSERTS (HONEYCOMB INSERTS C) 
<^50 CONTINUE 

IF (MNDP.NE.2) 60 TO 140 
wTHINC=GINSRT/100, 
wMHINC=WTHINC 
GO TO 140 

*** EQUATION FOR INSULATOR 

260 CONTINUE 

WTINS=20.*GINSUL/100. 

wMlNbrWTINS 

GO TO 140 

*** EQUATION FOR POST CENT (CENTER POST C) 

270 CONTINUE 


WTT 421 
WTT 422 
WTT 423 
WTT 424 
WTT 425 
WTT 426 
WTT 427 
WTT 428 
WTT 429 
WTT 430 
WTT 431 
WTT 432 
WTT 433 
WTT 434 
WTT 435 
WTT 436 
WTT 437 
WTT 438 
WTT 439 
WTT 440 
WTT 441 
WTT 442 
WTT 443 
WTT 444 
WTT 445 
WTT 446 
WTT 447 
WTT 448 
WTT 449 
WTT 450 
WTT 451 
WTT 452 
WTT 453 
WTT 454 
WTT 455 


CUN \ i NUt " ' ’ ~ 

WTPOSR=PI*ODPOSR*LTUBER*TTUB£*PPOST+PI4*(ODPOSR-2.*TTUBE)**2*HRINGWTT 456 
1*PP0ST-PI4*( IDRING**2*(HRING-TRING2)+DIARGH**2*TRING2)*PP0ST+PI4*(WTT 457 
2IDFNG2**2-ODPOSR**2)*HFNG2*PTUBE+PI4*(ODFNG2**2-IDFNG2**2>*TFNG2*PWTT 458 

3TUBE+WTBR14+*TBR1S WTT 459 

wMP0SR=PI*0DP0SR*(LTuBER+,5)* (TTUBE+,01)*PPOST+PI4*ODPOSR**2*(HRINWTT 460 
1G+.1)*PPOST+PI4*(ODFNG2+.OD**2*(HFNG2+,1>*PTUBE WTT 461 

GO TO 140 WTT 462 

WTT 463 

*** EQUATION FOR POST CORN (CORNER POST A) WTT 464 

WTT 465 

280 CONTINUE WTT 46 ^ 

WTPOSA=2.*PI4*(ODPOST**2-OOTUBE**2)*LPOST*PPOST+2.*PI4*(ODPOST**2-WTT 467 

101 APGH**2 ) *TPLUG*pPOST+2 . *Pl*0DTUBE*TTUBE*LTUBE*PTUBE+2 . *PI4* (ODFNWTT 468 
2Gl**2-0DTUBE**2)*TFNGi*PTUtSE+WTBRZ6+WTBRZ7 WTT 469 

WMP0SA=2.*PI4*l (ODPOST+.Ol)**2-ODTUBE**2)*(LPOST+.5)»PPOST+2.*PI4*WTT 470 
1 ( QOPQST+ . 01 ) **2* ( TPLUG+ . 1 ) *PPOST +2 « *PI4* ( ( ODFNG1+ . 01 ) **2-ODPOST**2WTT 471 
2)*(LTUBE+.1)*PTUBE 4 Z* 

GO TO 140 WTT 473 

WTT 474 

*** EQUATION FOR POST CORN (CORNER POST B> WTT 475 

WTT 476 

290 CONTINUE WTT 477 

WTP0SB=4 .* ( ( 3.*WPOST+2. *LPOST ) *HP0ST+4 ,*<LSTFNR-WSTFNR ) *WSTFNR-3, *WTT 478 
1PI4*DIAP0H**2)*TP0ST»PP0ST+WTBR11 WTT 479 

WMPOSB= (2,*LP0ST+3.*WP0ST+1 , ) * (HPOST+1 . )*TPOST*PPOST WTT 480 


Figure 1-22. Source Listing — WTTPS, Contd 


1-64 



GO TO 140 WTT 481 

C WTT 482 

C *■** EQUATION FOR POST CORN (CORNER POST C) WTT 483 

C WTT 484 

300 CONTINUE WTT 485 

WTROSC=PI*ODPOST*lPO s T*TPOST*PPOST+PI 4*(ODRING**2-ODPOST**2)*TRINGWTT 486 
11*PP0ST+PI4*<0DP0ST**2-DIAPGH**2)*TPLUG*PP0ST+PI4*(0DFNG1**2-0DP0SWTT 487 
2T**2)*TFNGl*PTUBE+PI‘+*( IDFNG1**2-0DP0ST**2)*(HFNG1-TFNG1)*PTUBE+WTWTT 488 
36RZ6+WTBR16+WTBR17 WTT 489 

wMP0SC=P I*ODPOST* ( LPOST+ . 5 ) * < TPOST+ .01) *PP0ST+Pl4* < (OOR ING+ ,01) **2WTT 490 

1-00P0ST**2 ) * ( TRING1+ • 1 ) *PP0ST+PI4* ( OQPOST+. 01 ) ** 2 * ( TPLUG+ . 1 ) *PPOSTWTT 491 
2+PI4*((ODfNG1+.01)**2-ODPOST**2)*(HFNG1+,1)*PTUBE WTT 492 

GO TO 140 WTT 493 

C WTT 494 

C *** EQUATION FOR SEAL WTT 495 

C WTT 496 

O10 CONTINUE WTT 497 

wTSEAL=(LsEAL*(WSeAL+.03)-PI4*NYA*DIABH1**2)*TSEAL*PSEAL WTT 498 

WMSEAl=(LSEAL+1.)*(WSEAL+,5)*TSEAL*PSEAL WTT 499 

uO TO 140 WTT 500 

C WTT 501 

C *** EQUATION FOR FASTNERS (FASTENERS A) WTT 502 

C WTT 503 

320 CONTINUE WTT 504 


WTFASA= (NxA+NYA+2, ) *GBOLT/lOO . + ( NXA+2 . ) *GW ASH/1 00 ,+ (NXA+NYA ) *GNUTPWTT 505 




1L/1UU. 

WTT 

506 



WMFASA=1.1*WTFASA 

WTT 

507 



GO TO 140 

WTT 

508 

c 



WTT 

509 

c 

*** 

equation for fasteners (Fasteners b> 

WTT 

510 

r' 



WTT 

511 


J30 

CONTINUE 

WTT 

512 



WTFAS8=8.*GBOLT/100. +4.*GivASH/100.+8,*GNUTPL/100. 

WTT 

513 



wmfasb=i.i*wtfasb 

WTT 

514 



GO TO 140 

WTT 

515 

c 



WTT 

516 

c 

*** 

EQUATION FOR FASTENERS (FASTENERS C> 

WTT 

517 

c 



WTT 

518 


340 

continue 

WTT 

519 



WTFASC=2.*GBOLT/100,+GWASH/100.+GNUTPL/100.+GCLAMP/100. 

WTT 

520 



WMFASC=1.1*WTFASC 

WTT 

521 



GO TO 140 

WTT 

522 

c 



WTT 

523 

c 

*** 

EQUATION FOR TOTAL STRUCTURE 

WTT 

524 

c 



WTT 

525 


350 

continue 

WTT 

526 



wTSTR=WTBMLA+WTBMlC+WTBMSA+WTBMSC+WTCORN+WTHINA+WTHINB+WTHINC+WTINWTT 

527 



1S+WTPOSR+WTPOSA+WtPOSB+WTPOSC+WTSEAL+WTFASA+WTFASB+WTFASC 

WTT 

528 



WMSTR=WMBMLA+WMBMlC+WM8MSA+WMBMSC+WMC0RN+WMHINA+WMHINB+WMHINC+WMINWTT 

529 



1S+WMPOSR+wMPOSA+WMPOSB+WMPOSC+WMSEAL+WMFASA+WMFASB+WMFASC 

WTT 

530 



acwt=wtstr 

WTT 

531 



mawt=wmstr 

WTT 

532 



KK=99 

WTT 

533 



N=ll 

WTT 

534 



KLIC=0 

WTT 

535 



IF (ACWT.GT.O.) Call COST 

WTT 

536 



IF (ACWT.GT.O) ITL=1 

WTT 

537 



acwt=wtbnla 

WTT 

538 



mawt=wmbmla 

WTT 

539 



KK = 3 

WTT 

540 
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KT=1 



WTT 

541 

Nrl^ 



WTT 

542 

KL IC-1 



WTT 

543 

IF (ACWT.GT.O.) 

call 

cost 

WTT 

544 

acwt=wtbmlc 



WTT 

545 

MAWT=wMBMLC 



WTT 

546 

KK=3 



WTT 

547 

KT = 1 



WTT 

548 

N=19 



WTT 

549 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

550 

ACWT=WTBMSA 



WTT 

551 

MAWT=WMBMSA 



WTT 

552 

KK = 3 



WTT 

553 

KT=1 



WTT 

554 

Nr 13 



WTT 

555 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

556 

acwt=wtbmsc 



WTT 

557 

MAwT=wMBMSC 



WTT 

558 

KK = 3 



WTT 

559 

KT=1 



WTT 

560 

Nr20 



WTT 

561 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

562 

acwt=wtcorn 



WTT 

563 

i''iAWT=WMCORN 



WTT 

564 

KK=4 



WTT 

565 

KT=1 



WTT 

566 

Nrl<+ 



WTT 

567 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

568 

ACWT=WTHINA 



WTT 

569 

mawt=wmhina 



WTT 

570 

KK = 71 



WTT 

571 

KT=imXA 



WTT 

572 

Nr 1 5 



WTT 

573 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

574 

ACWT=WTHINd 



WTT 

575 

mawt=wmhinb 



WTT 

576 

KK = 71 



WTT 

577 

KT=4 



WTT 

578 

Nr 15 



WTT 

579 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

580 

acwt=wthinc 



WTT 

581 

mawt=wmhinc 



WTT 

582 

KK=71 



WTT 

583 

KT = 1 



WTT 

584 

Nr 15 



WTT 

585 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

586 

acwt=wtins 



WTT 

587 

MAWT=WMINS 



WTT 

588 

KK=61 



WTT 

589 

NT=20 



WTT 

590 

Nr lfl 



WTT 

591 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

592 

acwt=wtposr 



WTT 

593 

mawt=wmposr 



WTT 

594 

kk=h 



WTT 

595 

KT=1 



WTT 

596 

Nr 21 



WTT 

597 

IF (ACWT.GT.O.) 

call 

COST 

WTT 

598 

acwt=wtposa 



WTT 

599 

MAWT=WMPOSA 



WTT 

600 
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KK=11 

KT=2 

N=16 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTP0S8 

MAWT=WMP0S8 

KK = S 

KT=4 

N=lfo 

IF (ACWT.GT.O.) CALL COST 
ACwT=WTPOSC 

mawt=wmposc 

k>K=11 
KT = 1 
N:i6 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTSEAL 

mawt=wmseal 

KK=2 

KT=1 

N =17 

IF (ACWT.GT.O.) Call COST 

ACWT=WTFASA 

MAto T-WMF ASA 

KK=dl 

KT=NXA+NYA+2. 

N=22 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTFAS8 

MAWT=WMFASB 

KK=ai 

KT=8 

N=22 

IF (ACWT.GT.O.) CALL COST 

ACWT=WTFASC 

MAWT=WMFASC 

KK=81 

KT=2 

N=22 

IF (ACWT.GT.O.) CALL COST 
360 KLIC=10 

IF (KINDS. EQ.l) HOLEb=NXA+NYA 
IF (KINDS. EQ. 2) H0LES=8. 

IF (KINDS. EQ, 3) H0LES=2. 

CLAMP=8,. 

VOLMAT=HOLES*PI4*DIABH1**2*TSKIN1 

AOP(1»1)=HOLES*TIME(6) 

A0P(2#1)=CLAMP*TIME(1) 

valu£=volmat*time ( 7 ) 

IF ( VALUE. LE. .0011) VALUEr.OOll 

AOP (3,1) =H0LES*VAlUE 

A0P(4,1)=H0LES*TIME(4) 

A0P15,1)=H0LES*TIME<2) 

A0P(6,1)=CLAMP*TIME(5) 

A0P(7,1)=H0LES*TIME(3) 

IF (ITL.EQ.O) return 

CALL COST 

RETURN 

END 


WTT 601 
WTT 602 
WTT 603 
WTT 604 
WTT 605 
WTT 606 
WTT 607 
WTT 608 
WTT 609 
WTT 610 
WTT 611 
WTT 612 
WTT 613 
WTT 614 
WTT 615 
WTT 616 
WTT 617 
WTT 618 
WTT 619 
WTT 620 
WTT 621 
WTT 622 
WTT 623 
WTT 624 
WTT 625 
WTT 626 
WTT 627 
WTT 628 
WTT 629 
WTT 630 
WTT 631 
WTT 632 
WTT 633 
WTT 634 
WTT 635 
WTT 636 
WTT 637 
WTT 638 
WTT 639 
WTT 640 
WTT 641 
WTT 642 
WTT 643 
WTT 644 
WTT 645 
WTT 646 
WTT 647 
WTT 648 
WTT 649 
WTT 650 
WTT 651 
WTT 652 
WTT 653 
WTT 654 
WTT 655 
WTT 656 
WTT 657 
WTT 658 
WTT 659 
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APPENDIX II 


SUBROUTINE DESCRIPTIONS 

PROGRAM TPSOPT is the driver program, which calls the program input routine, 
increments time in the trajectory, calls for atmospheric conditions, heating rates, 
temperature computations, the stress analysis, the sonic fatigue analysis, and the 
determination of weights and costs. The output subroutine is also called from this 
driver. 

FUNCTION ALL computes the slope of the allowable S-N curve of the acoustic fatigue 
subroutine from the input curve fit coefficients for stress in thousands of psi as a 
function of the number of stress reversals. 

FUNCTION APP determines the slope of an applied sinesoidal S-N curve for an 
assumed Rayleigh probability distribution - two different fits for various portions of 
the curve are an integral part of this subroutine. 

FUNCTION BANDWIDTH is a table that specifies the octave bandwidth as a function of 
the center frequency used in the fatigue analysis. 

BLOCK DATA is an embedded data table used to determine all material and manu- 
facturing costs of the TPS. 

SUBROUTINE BUCKNG iteratively solves for the plasticity correction factor of the 
thermal stress analysis. In the expression solved, the stress is related to the tangent 
modulus and modulus of elasticity (the ratio being the plasticity correction factor) in 
terms of the applied and critical stresses and the Ramberg-Osgood shape parameter. 

SUBROUTINE CONDTN explicitly solves the energy equation to predict temperature 
response of the TPS. Energy terms include both conduction and radiation between 
nodes. For the latter case, values of the overall interchange factors between nodes 
must be input to the program. Since the solution is explicit, the possibility of nu- 
merical instability exists; nodal temperatures are monitored through the trajectory, 
and if a temperature changes too rapidly, provision is made to decrease the time step. 

SUBROUTINE COST determines the weights of all component parts of the TPS. Ma- 
terial costs, manufacturing standard hours and realization factors, and manufacturing 
costs are computed here and printed out in the weight/ cost summary. Data to compute 
these numbers are called from the data bank, BLOCK DATA. 
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SUBROUTINE COSTOT determines the total program cost to develop, manufacture , 
and test 22,000 square feet of the TPS. These costs, based on historical data, the 
weight of the TPS, and the complexity factor for the material/configuration predict 
total program costs for the theoretical first unit, non-recurring costs, engineering 
design and development, tooling ground and flight test hardware, spares, recurring 
production and operations, and refurbishment. 

FUNCTION CURVEF computes the decrease of the octave band sound pressure level 
(OBSPL) from the maximum value (OBSPL max ) as a function of the number of octaves 
difference between the frequency f 7 of OBSPL max given by f 7 D/U = 0. 8 and the funda- 
mental frequency of the panel. The falloff is either 4 or 3. 5 db/octave depending on 
whether the natural frequency f is above or below the characteristic frequency f 7 . 

All calculations supplement the sonic fatigue analysis. 

SUBROUTINE DRVTPS is the driver subroutine for the weights/cost analysis. Input 
to this analysis is read by DRVTPS instead of the major input subroutine INPUT1, 
and the input data are printed out by DRVTPS. All constants used in either the weight 
or cost analysis are initialized here. The weight and manufacturing cost subroutines 
are called through subroutine WTTPS from this point in the program, and the total 
program cost subroutine COSTOT is also called here. 

SUBROUTINE FATIG performs all sonic fatigue analysis of the program except input 
of its own data. This is passed from the subroutine INPUT1 through the name common 
block SONIC 1. Sound pressure levels are predicted at this point in the subroutine 
from any or all of the four sources considered, and the panel fundamental frequency 
is determined for the panel under consideration. Root mean square and peak dynamic 
stresses as well as the expected number of stress reversals for each noise source 
are determined, and the resulting S-N data derived from a Rayleigh probability func- 
tion are compared to allowable S-N data which have been input to the program. Results 
of the analysis are printed out by FATIG. 

SUBROUTINE INPUT1 reads and prints out all input data except those used in the 
weights/cost analysis. Panel geometrical parameters, material properties, the tra- 
jectory, and radiation interchange factors as well as indices which specify options to 
be performed by the program are read and then written out for the program user. 

SUBROUTINE MINTNO performs the iteration to compute the critical stress of the 
sonic fatigue analysis. This is performed mathematically by determining the stress 
at which the applied and allowable S-N curves are tangent. The slopes of these curves 
are obtained by calling subroutine APP and ALL, respectively. 

SUBROUTINE PANEL computes geometric properties of the discrete elements for the 
thermal stress analysis from the general panel dimensions which have been input to 
the program. 


n-2 



SUBROUTINE PRA63 calculates freestream atmospheric properties of temperature, 
pressure, and density as a function of altitude using curve fits of properties of the 
1963 Patrick Reference Atmosphere. 

SUBROUTINE PRINT 1 is the main output subroutine which writes out aerothermo- 
dynamic characteristics of the environment such as fluidynamic properties and vehicle 
attitude as well as temperature and stress distributions of the panel cross-section. 

SUBROUTINE STRESS performs the discrete element thermal stress analysis on each 
of the six panel configurations depending upon which is under consideration. At incre- 
ments in the trajectory equal to the print interval, nodal teijjperatures are interpolated 
from the temperature distribution, and thermal stresses are determined along with 
design factors and creep rates. All these values are stored in arrays for use at the 
end of the trajectory at which time the minimum design factors are identified. If any 
are negative, the panel thickness is increased and stresses recomputed. The panel 
thickness is increased until all design factors are positive. 

FUNCTION TABLE is a linear interpolation subroutine used for a number of table 
look-ups throughout the program. 

SUBROUTINE THERMO is the procedure whereby local flow properties are computed 
from freestream values using either oblique or conical real gas shock relations for 
low angles of attack or swept cylinder methods for high angles. Heating rates are 
computed using either Eckert or Spalding-Chi heating prediction techniques for attached 
shock wave flows or either Fay-Riddell or Beckwith-Gallagher swept cylinder methods 
for high angles. 

FUNCTION TRPLATE is a specialized linear interpolation routine for a triply sub- 
scripted variable used for determining material properties in the stress analysis. 

SUBROUTINE WTTPS computes the weights of all component parts of the TPS panel 
insulation and supporting structure. Manufacturing costs are computed by calling 
subroutine COST. 
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PROGRAM FLOW CHART 
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TPSOPT 



in-2 


Figure IE-1. Program Flow Chart 
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